_+~——4 
“4-4 
“444 
444 
444 
444 


4 
AA tt tt St St SH 
ahh gd gt ag at tt tt 
a hhh da a a dd tg tt 


# 


eeri< 


v 
cr 


] 
] 
] 
] 
] 
] 
] 
| 
: 
‘ 


PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PL 
PM 
PM 
PMS 
PMS 
PMS 
PMS 
PMS 
PMS 
PMS 
PMS 
PMS 
PMS 
PMS 
PMS 
PMS 
PMS 
PMS 
PMS 
PMS 
PMS 
PMS 
PMS 
PMS 
PAS 
PMS 
PM: 
PAS 
PMS 
PM 
PM: 


a , 


**F 1LE**1D**MONMAIN 


MM MM 000000 
MM MM 000000 
MMMM 6MMMM «600 00 
MMMM MMMM 600 

MM 66MM MM «(O00 

MM MM MM «(00 

MM MM 600 

MM MM 00 

MM MM 00 

MM MM 600 

MM MM 00 

MM MM 600 

MM MM 000000 
MM MM 000000 
LL IIIT] 
LL 1111 
LL I] 
LL I] 
LL I] 
LL I] 
LL I] 
LL I] 
LL I] 
LL I] 
LL I] 
LL I] 
LLLLLLLLLL III! 
LLLLLLLLLL III] 


L 10 


AA 
AA 
AA 
AA 


AA Aa 
AAAAAAAAAA 
anne 


a be 
oe 
Pt bd ame bat Be at et Bee be Bes fae ee Be me 
Seemed 
be be 


Pat ed ae at bs Bt et 0 be it et be be 


— 
— 
eb 


i elamed 


MONMAIN 


v04-0 


WN =O CDNAUSWN $OODNOUSWN (OO DNOUE WN 


IAI. AAI PROPO PO NONIPONONONY 2 SS 


BOVE 


ae 
-o 


ae 
wr 


nan 
w 


a a a et ed th a ot = 2 oe ot td 2 = 2 = = = 2 = 2 2 2 a tt 


oo 


=198¢ 98:09:57 DISkSuMSmASTER 


MONMAIN: Procedure Returns (Fixed Pinery(s) 


Options (Ident ('v04- * met: 


/* 
JRA RARAAARA RARER AAA 


/* & 
/* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
/* DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. * 
. ALL RIGHTS RESERVED. 2 
/* ae fo aces IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
/* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
fe oF EL SION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
/* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
/* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
An TRANSFERRED. : 
® 
/* He 3 INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
/* SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
o CORPORATION. * 
* * 
/* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * 
i SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : 
i eh ieeieelintceidinenenbadeineea diate euitlaciebiiiblasdemnadaabasbaiernadlanaidbdshdeaininabeiaghiibieneeene’ 


/*/ 
/* 


(aoe 
. FACILITY: VAX/VMS MONITOR Utility 
® 
fe ABSTRACT: MAIN Routine, including command interface. 
® 
/* 
oe ENVIRONMENT: 
® 
/* Unprivileged user mode 
/* except for certain collection routines which 
/* run in EXEC or KERNEL mode to access system 
e data bases. 


® 
A AUTHOR: Thomas L. Cafarella, April, 1981 
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MODIFIED BY: 


v03-018 TLC1089 Thomas L. Cafarella 26-Jul-1984 
Accept a space character in time specification. 
v03-017 TLC1087 Thomas L. Cafarella 25-Jul-1984 
Default to /ALL when summarizing. 
v03-016 TLC1075 Cafarella 27-Jun-1984 
Add stickiness A. hone “qualifier. 
v03-015 TLC1073 Cafarella 02-May-1984 
Make MAX_INP “FILES” Tinit “bigger. 
v03-014 PRS1012 aul R 23-Mar-1984 
Add wildcard sneehiitte oy MF summary. 
v03-013 TLC1056 Thomas L. Cafarella 23-Mar-1984 
Exclude class which is disabled. 
v03-012 PRS1011 aul R 29-F eb-1984 
add /FLUSH_ INTERVAL euki tl tas 
v03-011 TLC1052 Thomas L. Cafarella 17-Feb-1984 
Add multi-file summary Capability. 
v03-010 PRS1002 aul R. Senn smneen 1900 
GLOBALDEF VALUE te Be must now be ALOE Fo 
Use ZREPLACE rather than GLOBALDEF VALU Ay any equated 
symbols which are not 4 bytes in length; 
v03-010 PRS1001 aul R. Senn 27-Dec-1983 
Add ALL CLASSES ae me 
V03-009 TLC1044 mas L. Cafarella 24-Aug-1983 
Eliminate CLI “NOCOMp error for comment Lines. 
v03-008 SPC0007 Stephen P. Carney 24-Jun-1983 
Add EXECUTE subcommand. 
v03-007 fuctese homas L. Cafarella 19-Jun-1983 
d /ITEM ee for homogeneous classes. 
v03-007 TLC1041 Thomas L. Cafarella 16-Jun-1983 
Ignore CLI error message when no command on Line. 
v03-007 TLC1038 Thomas L. Cafarella 14-Jun-1983 
Make default List of classes replace previous List. 
v03-006 TLC1028 Thomas L. Cafarella 14-Apr-1983 
Add interactive user interface. 
v03-005 TLC1019 Cafarella 18-Jun-1982 


Change CLI$_ NEGATES” hk oF to CLIS _LOCNEG. 
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15:00 
15:00 
13:00 
14:00 
13:00 
14:00 
11:00 


16:00 


16:00 


——-: 


11 
vO4-000 TECREECIOBL 92:50:69 YMECITA2LL1seglBada ROR. snconommnan.eC 290 fo 


198 om /* v03-004 ryCiore Thomas L. Faferelte 30-Mar-1982 13:00 
Ve ' : i Display user's comment string on screen Line 5. 
105} 4 /* v03-004 TLC1011 Thomas L. Cafarella 29-Mar-1982 20:00 
138 ' ' c Move system service names for SSERROR msg to static storage. 
108 | 1 /* v03-003 TLC1009 Thomas L. Cafarella 29-Mar-1982 01:00 
i” : . Get current time when other times are converted. 
11} 1 /* v03-003 TLC1007 Thomas L. Cafarella 28-Mar-1982 19:00 
ie : : . Add checks for maximum sizes of qualifier values. 

. t 
114 3 1 
43? ' : fe Fix up module headers. 
W727i 4 /s vO3-001 111001 Thomas L. Cafarella 16-Mar-1982 13:00 
118; #1 /* d CTRL-W screen refresh support. 
119; 1 /* 
120: #1 /t-- 
te: 3-9 /*/ 
122 1 
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/* v03-002 TLC1003 Thomas L. Cafarella 23-Mar-1982 13:00 
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INCLUDE FILES 

aneniunbewunen RUGGED nSeEeeeNRREEEEEReEEREREEaNe 
MONDEF ; /* Monitor utility structure definitions */ 
SCHFDEF; /* Condition handler facility definitions */ 

SSTSDEF; /* Status code definitions */ 
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1g-3EP 71382 98:49:29 DISKSVMS Lae eR RONTOR. SRCIMONMAIN.PC TET (4) 
an6 Ss /* 
948 | 1 /* : : 
949: «1 /* } COMPILE-TIME CONSTANTS ! 
950 : 1 /* ! ! 
951 | 1 /* ! Pee ere os mw we OE mMreewroserenza = Se ee ee mm ce em ow em me we oS ee FFT e Bw SB Be erowerwremwew nr Oe SDH eS @®Pow nam we ewe = o— ot 
She St 
954 1 ZREPLACE NOT_SUCCESSFUL BY ‘O'B; /* Failing status bit */ 
955 1 ZREPLACE YES” BY '1'B; /* For general use */ 
928 : EREPLACE NO BY ‘O'B; /* For general use */ 
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/* 

/* ' SS Om oe ae er we Bem senrteawerenwroe weston mercer nner eem erent eee mm e mmm eee woo ewte eo eec comm ewes $+ 

/* : ' 

Me : EXTERNAL STORAGE DEFINITIONS 

/* i Se ee me ee ee em ee em ee ee ee (ne ee nm) nue o> ey ee Ek ee ae ae ee ae ee ee ee ee ee ee So oS Se weoeen > 

/*/ 
Declare 
MON_ERR ENTRY (ANY VALUE, ANY, ANY) OPTIONS(VARIABLE), 

/* Routine to log synchronous errors */ 

SIGNAL MON ERR ENTRY, /* Routine to signe. MONITOR errors */ 
DISPLAY_CLEANUP ENTRY RETURNS(FIXED BINARY(31)) /* Procedure clean up DISPLAY processing */ 

S$_NORMAL FIXED BINARY(31) GLOBALREF VALUE, /* System normal return status */ 
RMSS$_EOF FIXED BINARY(51) GLOBALREF VALUE, /* RMS end-of-file return status */ 
RMS$_NMF FIXED BINARY(31) GLOBALREF VALUE, /* RMS no-more-files message for wildcard parsing */ 
RMSS$_FNF FIXED BINARY(31) GLOBALREF VALUE, /* RMS file=not-found message */ 
NORMAL FIXED BINARY(31) GLOBALDEF; /* MONITOR normal return status */ 
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FIXED BINARY(31) GLOBALREF VALUE, /* Error message code */ 
FIXED BINARY(31) GLOBALREF VALUE, /* Error message code */ 
FIXED BINARY(31) GLOBALREF VALUE, /* Error message code */ 
FIXED BINARY(31) GLOBALREF VALUE, /* Error message code */ 
FIXED BINARY(31) GLOBALREF VALUE; /* CLI error message code */ 
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DISKSVMSMASTER 


/t | eeweccecccccoccccececcccce eeeeoeeoe See eee eeeeenenenenenea eeeeeo eeeeeo weer rer en neenne = $+ 


Declare 
COMMAND _F ILE 


Declare 
CURR_ERRCODE 
FIRST MD 


ST_MON_C 
PROMPT 
EXECUTE 
DISPLAYING 
Declare 
CDBPTR 


Declare 

QUALPTR 

DEFPTR 

Declare 

1 STAT_TABLE 
2 STAT_DESC 


Declare 
1 PROCD_TABLE 


2 PROTD_DESC 


GLOBALREF ; 


FILE 

FIXED BINARY (31 
BIT(1) ALIGNED 
BIT(1) ALIGNED 
BIT(1) ALIGNED 
BIT(1) ALIGNED 
POINTER GLOBALDEF, 
POINTER GLOBALDEF, 
POINTER GLOBALDEF, 
POINTER GLOBALDEF, 
POINTER GLOBALDEF, 
POINTER GLOBALDEF, 
POINTER GLOBALDEF, 
POINTER GLOBALDEF ; 
POINTER GLOBALDEF, 
POINTER GLOBALDEF ; 


DEF 
TS=1) POINTER; 


GLOBALDEF 
(0:PROCDISPS-1) POINTER; 


Pointer 
Pointer 
Pointer 
Pointer 
Pointer 
Pointer 
Pointer 
Pointer 


Pointer 
Pointer 


Execute Command File */ 


MONITOR error status code currently expected */ 


~< 
m 


S => first MONITOR (DCL-level) cmd executing */ 


YES => prompt user for another subcommand */ 
YES => read another command from the execute file 
YES => terminal display output is active */ 


to 
to 
to 
to 
to 
to 
to 
to 


to 
to 


COB (Class Descriptor Block) */ 
MRB (Monitor Request Block) */ 
default’’ MRB (Monitor Request Block) */ 
“temporary’’ MRB (Monitor Request Block) */ 
‘current’ MRB (Monitor Request Block) */ 
active’’ MRB (Monitor Request Block) */ 
MCA (Monitor Communication Area) */ 
SYI (System Information Area) */ 


Qualifier Descriptors Block */ 
Qualifier Default Value Descriptors Block */ 


Table of pointers to str descrs for statistic qualifiers 


Table of pointers to str descrs for PROCESSES display qua 
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1024 1 

1 ; 4 /* 

} é ' ! aoe Counted strings for system service names used in the MNRS$_SSERROR error message 

1 8 2 

1 1 bes tore 

1 ° 1 READEF _STR GLOBALDEF /* Counted string for SREADEF */ 
1 1 L FIXED BINARY(7) INIT(7), /* Length */ 

: ¢ : $ CHAR(7) INIT('SREADEF'), /* String */ 

1 1 1 CLREF_STR GLOBALDEF, /* rounted string for SCLREF */ 
1035 1 § L “FIXED BINARY(7) INIT(6), /* anes «/ 

: : S$ CHAR(7) INIT('SCLREF'), /* String */ 

10 1 1 SCHDWK_STR GLOBALDEF /* Counted string for SSCHDWK */ 
10391 L FIXED BINARY(7) INIT(7), 7* Length */ 

ine : S CHAR(7) INIT(C'SSCHDWK'), /* String */ 

10e§ 1 1 SETIMR_STR GLOBALDEF /* pone ore for SSETIMR */ 
104 1 L FIXED BINARY(7) INIT(7), /* Length 

ieee : $ CHAR(7) INITC'SSETIMR'), /* String = 

1046 1 1 DCLAST_STR GLOBALDEF /* Counted agering for SDCLAST*/ 
10471 2L FIXED BINARY(7) INIT(7), Je ength 

4 : 2s CHAR(7) INIT(*SDCLAST'); /* Str ng 7 
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/* 

/* ' egeeoeweeeweerre won weecerenereecerc =e Se we we em wm te ee em mee ee we ee me ee ee me Steen a raon aes + 

/* : ' 

/* : OWN STORAGE : 

/* : ! 

/* ' oe me ee Sse tre we Fe ws eww wee TOM eT eOZ@eew ween nmame me a= = SP Osean eos ene sasaenwrnenanarweonre an we + 

/*/ 

Declare 

CALL NARY (31) /* Holds function value (return status) of called routines * 
STATUS BASED (ADOR(CALL)); /* Low-order status bit for called routines */ 
/* 

/* Strings for command qualifiers and parameter. Descriptors 

ose for these strings are defined in the QUAL structure. 

DECLARE 

BEG_QUAL_S "De BEGINNING qualifier string */ 
END_QUAL_S ENDING qualifier aortas » 
NT_QUAL_S ) INTERVAL qualifier string */ 
FLUSH_QUAL TERVAL"), FLUSH_INTERVAL qualifier string */ 
VIEW GUAL TIME’), VIEWING_TIME qualifier string */ 
NP_GUAL_S INPUT qualifier string «/ 
DISP_QuaC_s ‘ DISPLAY qualifier string */ 
REC_GUAL_S RECORD qualifier string */ 
SUMA_QUAC_S 4 SUMMARY qualifier string */ 
COMM_QUA "Fe COMMENT qualifier string */ 

BY_NODE _Q0AL_S 7. BY_NODE qualifier string */ 
CLASS_PARM_S NAME"); CLASS_NAME parameter string */ 

/t 

/* Strings for class-name qualifiers. Descriptors for these strings are defined in 

/* the QUAL structure. 

/*/ 

DECLARE 

ALL_QUAL_S CHAR(3) I ALL quel itive string «/ 
CUR_QUAL_S CHAR(7) | ° CURRENT qualifier string */ 

AVE _QUAL_S CHAR(7) I ° AVERAGE qualifier string */ 

MIN_QUAL_S CHAR(7) I ° MINIMUM qualifier string */ 

MAX_QUAL_S CHAR(7) I ° MAX IMUM que} j 1 ter string */ 
TOPT_QuAC_ CHAR(6) I TOPCPU qualifier string */ 
TOPD_QUAL_ CHAR(6) | TOPDIO qualifier string */ 

QUAL _ CHAR(6) | TOPBIO quat ti ier string */ 
TOPF QUAL CHAR(8) | ), TOPFAULT qualifier string */ 
cPu_GUAL_S CHAR(3) | Be CPU quel’ ier hg «/ 

PCERT QUAL_S CHAR(7) | ENT"), PERCENT qualifier s eins «/ 
ITEM_GUAL_S CHAR(4) | ); ITEM qualifier string * 

/t 

/* Default file-spec values for qualifiers. Descriptors for these strings are 

/* defined in the DEF structure. 
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/*/ 
DECLARE 
REC DEF ES 


DISP_DEF_S 
SUMM_DEF"S 


TOR.DAT') 
SSOUTPUT : 4 Pe 
MONITOR.SUM"); 
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Default Monitor Request Block */ 


a time of request in system time units */ 
Ending time of request in system time units */ 

Interval value in seconds */ 

Flush interval in seconds */ 

Viewing time for a screen in seconds */ 

Address of input 7 descr (0 if input not requested) */ 
Address of q*9ptay le descr (0 if display not requested 
(Initialized in MONITOR_INIT routine) */ 

Address of record file descr (0 if record not requested) 
Address of summary file descr (0 if summary not requested 
Address of comment string descriptor */ 

Count of classes requested (needs no init) */ 

Bit string of requested classes */ 

Count of input files specified (needs no init) */ 

Flags for MRB */ 
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/* 
{r++ 
/* 
. FUNCTIONAL DESCRIPTION: 
i; MONMAIN 
/* This routine is the main Monitor routine, entered from DCL. 
/* It calls the CLE (Command Language Editor) to parse the 
/* MONITOR command Line. and creates a Monitor Request Block (MRB) 
/* describing the request. The EXECUTE_REQUEST routine is then 
se called to execute the request. 
® 
/* INPUTS: 
/* 
/* None 
/* 
ae IMPLICIT INPUTS: 
& 
An The MONITOR command Line. 
® 
/* OUTPUTS: 
/* 
/* None 
/* 
fe ROUTINE VALUE: 
SS$_NORMAL, or failing MONITOR status. 
® 
[too 
// 
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118) 1 ON FINISH; /* On finish, go nothing */ 

1186 ON ANY CONDITION /* On any condition signaled, */ 

1186 DECLARE on CODE FIXED BI waar tel} /* Monitor message code */ 

1187 TEMP FIXED BAN ARY (31) /* feanorary scratch area */ 

1188 FILE CHAR(100) VARYING /* s possible ile name string */ 

1189 MNRS$_FACNO FIXED BINARY(31) 6LOBALREF VALUE, Pe hon OR facility number 

Bb 4! SIGNALED ERR ENTRY (ANY VALUE, ANY VALUE, ANY VALUE, ANY); /* Rtn to set - PUTMSGVEC */ 
1138 2 CHFSARGPTR = eek gt hh /* Get si net arrey pointer */ 

119 STSSVALUE = CHFSSIG_NAME; /* Get code for signaled oeneseren «/ 

1194 UNSPEC(TEMP) = STSSFAC_NO; ye Convert. faciLlit ty no. nary in in, TEMP */ 
1195 IF TEMP = MNRKS$_FACNO /* If a MONITOR code, r res tanek 

1138 § THEN CALL RESIGNAL(); 

1198 2 IF CURR_ERRCODE = MNRS_ERRPARSE & /* A Ue arti © CLU parsing error, */ 

1199 ont HFSSIG_NAME = CLI$_NOCOMD /* A io Command on Line’, */ 

1200 THEN CALL = NORMAL? /* "lean set up code so it's ignored / 

1$9) ELSE DO; /* Otherwise */ 

: 4 3 IF CURR ERRCODE = MNRS_ERREXEREA /* Was it an execute command file read error? */ 
150 4 CLOSE FILE (COMMAND _FILE); /* Yes, close the execute command file */ 

1s? : XE CUTE = NO; /* Don't do any more input from the file */ 
1207 3 IF CURR END: = 0 /* See if an error is surrentty expected */ 

1208 3 THEN olan COD E = WARS me xPeRe; /* wO- set wrenpected ode 

1209 3 ELSE MON-CODE = CURR-ERRCOD /* gntiy ex pected. code */ 

1210 3 CALL CTENALED ERR(MON_ CODE. RE TES UALUE. DIM(CHFSSIE® Arg. i)’ CCHF SS SIG_ARG /* Log the error */ 
1211 3 CALL = MON_CODE; /* Set up code for MONT TOR request termination */ 
ins 3 a 

1214 2 a ERRCODE = 0; /* Reset to default MONITOR error code C Yrexpected a/ 
Asis § AY MON_REQ_TERM; /* ... and go terminate (PL/I does an UNWIND) * 
1217 1 
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CALL_= MONITOR_INIT(); /* Do image-wide initialization */ 
IF STATUS /* Continue if status OK */ 
THEN CALL = MONITOR_CMD(); /* Analyze and execute first (DCL-level) MONITOR cmd */ 
MON_REQ_TERM: /* MONITOR request termination */ 
/* 
es We get to this point by one of three routes: 
/* 1) A MONITOR request has just terminated successfully or with an error status code; or 
/* ) A MONITOR request has just terminated with an error that was signaled; or 
Ae ) The MONITOR_INIT call above terminated with an error status. 
/* In all three cases we want to do the same thing. That is, to loop prompt tne for more subcommands 
/* as long as the PROMPT indicator is still set to YES. It can be set to NO by an EXIT subcommand 
/* or as a result of the user's striking CIRL/Z (either in response to the MONITOR> prompt, or while 
/* a MONITOR request is running). In case 3 above, it will always be set to NO. For all cases, the 
/* variable CALL contains the status code of interest and, if an error, the PUTMSG vector (PUTMSGVEC) 
oS has been set up with error message information. STATUS is a synonym for the low-order bit of CALL. 
/* If the EXECUTE indicator is set to YES then NEXT_EXECUTE_COMMAND will be called. If EXECUTE is set 
/* to NO, then NEXT_COMMAND is called. NEXT _EXECUTE_COMMAND will retrieve commands from a file intead 
. of the terminal as done by EXECUTE_COMMAND. 
IF “Tv = NOT_SUCCESSFUL /* If bad status, */ 
IF DISPLAYING = YES /* If display output is active, */ 
THEN STSSVALUE = DISPLAY_CLEANUP(); /* then per rere cleanup */ 
pat SIGNAL MON_ERR(); /* Signal MONITOR error */ 
DO WHILE (PROMPT = YES); /* Main loop to perform subcommands */ 
IF EXECUTE = YES /* Read from the execute command file? */ 
THEN CALL = NEXT_EXECUTE_COMMAND(); /* Yes, execute next subcommand Line from the file */ P 
ELSE CALL = NEXT COMMAND(); /* No, Read from the terminal and execute next subcommand Li 
IF STATUS = NOT SUCCESSFUL THEN DO; /* If bad status, */ 
IF DISPLAYING = Y /* If display output is active, */ 
THEN STSSVALUE = DISPLAY_CLEANUP(); /* then perform cleanup */ 
at SIGNAL _MON_ERR(); /* Signal MONITOR error, using PUTMSGVEC */ 
END: i /* End of subcommand loop */ 
STSSVALUE = CALL; /* Get MONITOR completion status */ 
STSSINHIB_MSG = YES; /* Inhibit DCL i «/ 
RETURN(STSS$VALUE) ; /* Return to DCL */ 


oe 
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MONITOR_INIT: Procedure Returns(Fixed Binary(31)); 


33 


/* 
/* This routine performs general set-up, including 
Al setting of the current MRB to default values. 


— Ss 3 4 a 
eee eens 


}, 
1. 
1, 
1. 
1 
1} 
1 
1, 
), 
1 
1. 
1, 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


re 


oO 


WWII ARI PIPINIPINPININIPINPINPNNPOPofenonongf~ynonrofnrofnonunsrf%yd 


Se 


o 


ee ee eee ee ee 
WAWw 


WA 
at st dt HOO 


| 


bt At ty eye tet eR 


SIRALANLS 


Av—oS 


& 


12 
AIN 1B-9EP-19 4 02:10: VAX=11 PL/I X2.1-273 Page 17 | 
000 ~SEp-1984 18:09:57 ISKSVMSMASTER: CMONTOR. SRCIMONMAIN.PLI: 1 (15) | 
4 1 
5 PROMPT = NO; /* Start out assuming no MONITOR> prompting */ 1 
t EXECUTE = NO; 7* Start out assuming no EXECUTE file #/ | 1 
FIRST MON CMD = YES; /* Indicate first MONITOR command (entered at DCL) */ 1 
8 NORMAC = SS$_NORMAL; /* Use system's normal status */ | : 
0} /* 1 
13 /* Allocate the two blocks which contain string descriptors for | 1 
é /* command qualifiers and default qualifier values. Global 1 
; ' Set pointers to the blocks are automatically established. : 
$7 1 
ALLOCATE QUALIFIER_DESC; 1 
f ALLOCATE DEF _DESC; , 
9 1 
3 ee : 
we. /* Initialize string descriptors for command 1 
§ - qualifiers, command parameters, etc. : 
se : 
2 QUALSL_BEG = LENGTH(BEG_QUAL_S); /* Init length longword of descr */ 1 
$ QUALSA_BEG = ADDR(BEG_QUAL_S); /* Init address longword of descr */ . 
é QUALSL_END = LENGTH(END QUAL S); /* Init length longword of descr */ 1 
¢ QUALSA_END = ADDR(END_QOAL_SJ; /* Init address longword of descr */ . 
2 QUALSL_INT = LENGTH(INT_QUAL_S); /* Init length longword of descr */ | 1 
§ QUALSA_INT = ADDR(INT_QOAL_S); /* Init address longword of descr */ : 
2 QUALSL_FLUSH = LENGTH(FLUSH_ QUAL_S); /* Init Length longword of descr */ 1 
3 QUALSA_FLUSH = ADDR(FLUSH_QOAL_S); /* Init address longword of descr */ . 
7 2 QUALSL_VIEW = LENGTH(VIEW QUAL_S); /* Init Length longword of descr */ 1 
3 § QUALSA_VIEW = ADDR(VIEW_QDAL_S); /* Init address longword of descr */ : 
0 2 QUAL$L_BY_NODE = LENGTH(BY_NODE QUAL_S); /* Init length longword cf descr */ | 1 
1 3 QUALS$A_BY_NODE = ADDR(BY_NODE_QDAL_S); /* Init address longword of descr */ | : 
5 § QUALSL_INP = LENGTH(INP_QUAL_S); /* Init length longword of descr */ 
2 $ QUALSA_INP = ADDR(INP_QOAL_S); /* Init address longword of descr */ 
| 
| 


D1 | 
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| 
1 QUALSL_DISP = LENGTH(DISP_QUAL_S); /* Init length longword of descr */ 
} QUALSA_DIS! = ADDR(DISP_QOAL_SJ; /* Init address longword of descr */ 
1 QUALSL_REC = LENGTH(REC_QUAL_S); /* Init Length longword of descr */ | 
} QUALSA_REC = ADDR(REC_QOAL_SJ; /* Init address longword of descr */ | 
1 QUALSL_SUMM = LENGTH<SUMM_QUAL_S); /* Init Length longword of descr */ | 
| QUALSA_SUMM = ADDR(SUMM_QOAL_SJ; /* Init address longword of descr */ 
1 QUALSL_COMM = LENGTH(COMM_QUAL_S); /* Init Length longword of descr */ 
} QUALSA_COMM = ADDR(COMM_QOAL_SJ; /* Init address longword of descr */ 
1 § QUALSL_BY_NODE = LENGTH(BY_NODE QUAL_S); /* Init Length longword of descr */ 
! QUALSA_BY_NODE = ADDR(BY_NODE_QOAL_SJ; /* Init address longword of descr */ 
1 3 QUALSL_CLASS = LENGTH(CLASS_PARM_S); /* Init length longword of descr */ 
| QUALSA_CLASS = ADDR(CLASS_PARM_S); /* Init address longword of descr */ 
1 § QUALSL_ALL = LENGTH(ALL_QUAL_S); /* Init Length longword of descr */ 
! 2 QUALSA_ALL = ADDR(ALL_QDAL_S); /* Init address longword of descr */ 
1337 § QUALSL_CUR = LENGTH(CUR_QUAL_S); /* Init Length longword of descr */ 
! 3 : QUALSA_CUR = ADDR(CUR_QOAL_SJ; /* Init address longword of descr */ 
1340 2 QUALSL_AVE = LENGTH(AVE QUAL_S); /* Init Length longword of descr */ 
131 $ QUALSA_AVE = ADDR(AVE_QOAL_SJ; /* Init address longword of descr */ 
1343 2 QUALSL_MIN = LENGTH(MIN QUAL_S); /* Init Length longword of descr */ 
Ht re: $ QUALSA_MIN = ADDR(MIN_QDAL_S); /* Init address longword of descr */ 
1346 2 QUALSL_MAX = LENGTH(MAX QUAL_S); /* Init Length longword of descr */ 
Ht ri 4 2 QUALSA_MAX = ADDR(MAX_QODAL_SJ; /* Init address longword of descr */ 
1349 5 QUALSL_TOPC = LENGTH(TOPC_QUAL_S); /* Init Length lLongword of descr */ 
1320 2 QUALSA_TOPC = ADDR(TOPC_QUAL_S); /* Init address longword of descr */ 
1336 5 QUALSL_TOPD = LENGTH(TOPD QUAL_S); /* Init Length longword of descr */ 
1327 2 QUALSA_TOPD = ADDR(TOPD_QDAL_SJ; /* Init address longword of descr */ 
1355 3 QUALS$L_TOPB = LENGTH(TOPB_QUAL_S); /* Init length longword of descr */ | 
1396 QUALSA-TOPB = ADDR(TOPB_QOAL_SY; /* Init address longword of descr */ | 
1358 § QUALSL_TOPF = LENGTH(TOPF _QUAL_S); /* Init Length longword of descr */ 
1322 § QUALSA_TOPF = ADDR(TOPF_QODAL_SJ; /* Init address longword of descr */ 
1364 2 QUALSL_CPU = LENGTH(CPU_QUAL_S); /* Init Length longword of descr */ 
1306 QUALSA_CPU = ADDR(CPU_QDAL_S); /* Init address longword of descr */ | 
1364 QUALSL_PCENT = LENGTH(PCENT QUAL_S); /* Init length longword of descr */ 
! 5 QUALSA_PCENT = ADDR(PCENT_QODAL_SJ; /* Init address longword of descr */ 
1 QUALSL_ITEM = LENGTH(ITEM QUAL_S); /* Init length Longword of descr */ 
1368 QUALSA_ITEM = ADDR(ITEM_QODAL_S); /* Init address longword of descr */ 
1370 DEFSL_REC = LENGTH(REC_DEF_S); /* Init Length longword of descr */ 
1371 DEFSA_REC = ADDR(REC_DEF_SJ; /* Init address longword of descr */ 
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/* Init Length longword of descr */ 
/* Init address longword of descr */ 
/* Init Length Longword of descr */ 
/* Init address longword of descr */ 
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{ 

1 BO : /* { 
' _. Initialize STAT_TABLE descriptor pointers. 

: | 
138 
1384 STAT_DESC(ALL_STAT) = ADDR(QUALSL_ALL); /* Init pointer to ALL descr */ ‘ 
1385 STAT_DESC(CUR_STAT) = ADDR(QUALSL_CUR); /* Init pointer to CUR descr */ ' 
1 Hf] STAT_DESC(AVE_STAT) = ADDR(QUALSL_AVE); /* Init pointer to AVE descr */ 
1 STAT_DESC(MIN_STAT) = ADDR(QUALSL_MIN); /* Init pointer to MIN desir */ 
: 4 STAT_DESC(MAX_STAT) = ADDR(QUALSL_MAX); /* Init pointer to MAX descr */ | 
1390 | /s | 
} 3¢ ‘ . Initialize PROCD_TABLE descriptor pointers. 
139 
1394 PROCD_DESC(REG_PROC) = NULL(); /* Indicate no qualifier for ‘regular’ PROCESSES display */ 
1392 PROCD_DESC(TOPC_PROC) = ADDR (QUALSL_TOPC); /* Init pointer to TOPC descr */ 
1396 PROCD_DESC(TOPD_PROC) = ADDR(QUALSL_TOPD); /* Init pointer to TOPD descr */ 
1397 PROCD_DESC(TOPB_PROC) = ADDR(QUALSL_TOPB); /* Init pointer to TOPB descr */ 
1398 PROCD_DESC(TOPF_PROC) = ADDR(QUALSL_TOPF); /* Init pointer to TOPF descr */ 
1400 MRB_DEF.DIS = ADDR(DEFSL_DISP); /* Init default value of ptr to display file descr */ 
1401 ALLOCATE MCA SET(MCAPTR); /* Obtain Monitor Communication Area */ 
1408 ALLOCATE SYS_INFO SET(SPTR); /* Obtain System Information Area */ 
a 

§ © 
1405 } /* Allocate ‘‘temp"’, ‘current’ and “‘active’’ MRBs. Another MRB (MRB_DEF), | 
1406 : /* the default’’ MRB, is allocated in the data section above. Each MRB fully describes 
1407 ; /* a MONITOR request. The usage of the MRBs is analogous to that of SYSGEN PAR files. 
1408 ; /* To wit, the “default’’ MRB never changes; it is moved to the ‘current’ MRB whenever 
1409 ; /* an INITIALIZE subcommand is issued; an implicit INITIALIZE occurs when the MONITOR 
1410 ; /* image is saveked. The current’ MRB Sey be changed repeatedly with SET commands without 
1411 | /* actually execut a request; When a MONITOR request is executed (with a MONITOR | 
ht i /* subcommand, or a MONITOR DCL command), the ‘'current’’ MRB is moved to the ‘‘active’’ MRB, 
1413 | /* the ‘active’ MRB is updated in accordance with the MONITOR request, and the request 
1414 ; /* is executed using the ‘active’ MRB. The ‘temp’ MRB is used to accumulate information 
1415 ; /* resulting from a SET command. If the command contains no errors, ‘‘temp'’ is swapped 
1638 : /* with ‘current’; otherwise, ‘‘temp'’ is discarded. This is done to avoid defining a partial 
1417 } /* request when the SET command contains an error. 
be bc 
139? ALLOCATE MRB SET(TEMP_MRBPTR); /* Allocate the ‘'temp’’ MRB */ | 
1421 ALLOCATE MRB SET(CURR_MRBPTR); /* Allocate the ‘'current’’ MRB */ 
16 ; ALLOCATE MRB SET(ACT ARBPTR); /* Allocate the “‘active’’ MRB */ 
16 ? EF _MRBPTR = ADDR(MRB_DEF); * Init pointer to ‘default’ MRB */ 
1425 CALL = INIT_CMD(); /* Do an INITIALIZE command ... i.e., move default */ 
1? $ : /* ... MRB to current MRB */ | 
1428 RETURN(CALL); /* Return with status from INIT_CMD */ 
1489 END MONITOR_INIT; 


1 
1$-3E- 4 02:10: VAX-11 PL/I 2.1273 Pa 1 | me 
~3Fp=19be 98:59:83 ISKSVMSMASTER: CHONTOR- SRCJMONMAIN.PLIY' (48) vC 
\% 1 1 NEXT_COMMAND: Procedure Returns(Fixed Binary(31)); /* Routine to read the next subcommand @ execute it */ | 
14 i ' [t+ r 
14634 } / { 
1? 5 . FUNCTIONAL DESCRIPTION: | ! 
1487 is NEXT_ COMMAND | 
' » 
1439 ; /* This routine is called by the main routine to read the next subcommand and execute it. | f 
re : fe It returns a status code indicating the disposition of the command. : 
; t 
Vets : /* INPUTS: | { 
14435 } /* { 
1444 | /* None { 
1445 } /* { 
rr | ‘ s IMPLICIT INPUTS: 
1448 /* PROMPT == a bit indicating whether or not to prompt for a command. { 
re : i. It has always been set to YES before entry to NEXT_COMMAND. ; 
: * { 
1451 } /* QUTPUTS: | 
Me : /* { 
1453 ; /* None 4 
1454 } /* ‘ 
1455 } /* IMPLICIT OUTPUTS: { 
1456 } /* { 
ret : . The next command is executed. ; 
: * { 
1459 ; /* PROMPT -- a bit eg ay whether or not to prompt for another { 
1460 : /* command. It is always set to YES before gt to NEXT_COMMAND, and 4 
1093 : . can be set to NO by NEXT_COMMAND in any of the following situations: ‘ 
H 2 a 
1263 : /* 1) The user issues the EXIT subcommand. { 
1464 ; /* ) The user strikes CTRL/Z in response to the MONITOR> prompt. { 
re #1 : . ) The user strikes CTRL/Z while a MONITOR subcommand is running. 
: e 
1467 ; /* PUTASGVEC -- a 20-longword vector which is loaded with error message ¢ 
1468 } /* information by NEXT_COMMAND whenever an error status is { 
1669 : ye returned to the caller of NEXT_COMMAND. 
H w 
1471 ; /* RGUTINE VALUE: { 
ere : /* | { 
1473 ; /t A status code indicating the disposition of the command. If an { 
1474 } /* error status, then the PUTMSGVEC error message vector will have ( 
1475 ; /* been set up. | { 
1676 : /* { 
1477 ; /* SIDE EFFECTS: { 
1478 ; /* { 
1479 ; /* None { 
14 : /* { 
1481 : /e/ { 
1482 ! 
! 
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1483 | /* | 
‘ ' se ew SSO OS SO SS S SS SSS SSS SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESESEOEEE (te oe oe ee ee ee woh 
ie fe ! | 
1486 | /* } COMPILE TIME DEFINITIONS 
e ' a i eerrereoewrrmree ce 2 ewe rene wrerrnnmreo nena nwreazneremreeaeecnaoe SS ew Sw me eeeoeeceoo ne enonwre r= ee we ee oe wai 
gi ge 
bp 4 ZREPLACE MAX_EXEC_LINE BY 256; /* Max execute file Line size */ 
1498 
1620 ' on | mmmmone ees eran enna moan wee ee ow me Se ae a am oe oy COBB mM BM SEH See neem asreeeae = ea ee oe a + 
1296 | a : 
1299 | /s i LOCAL STORAGE 
1498 ; /* RIE ee AEE alah a NOT cD EE RTL EAM MND H 
1499 H / a ' SSS SSS SSS SSSSSSSVSSSSSSSSSeeenannanaan Sa oe me Sen ae eee OS S&S oe ot ee mm ie 
1500 ; /*/ 
1501 ictiaes 
1208 CLISDCL PARSE ere ENTRY(ANY, ANY) /* Rtn to do DCL-Llike parsing of cmd Line */ 
1504 RETURNS (FIXED BINARY(31)), - 
1505 CLISDISPATCH se RNSCFIXED BINARY (31)) /* Rtn to dispatch to latest parsed cmd 
1209 LIBSGET_INPUT ERT ERNA L ENTRY(ANY, ANY, FINED BINARY(15)) /* Rtn to read a Line from SYSSINPUT */ 
1398 a ra eae 
1340 STRSPOSITION EXTERNAL Satawene ANY, ANY) /* Rtn to locate Ist occurance of a substring */ 
1511 OPTIONS (VARIABL 
151 RETURNS(FIXED BINARY(31) ‘ 
STRSREPLACE EXTERNAL ENTRY(ANY, ANY ey, ANY, ANY) /* Rtn to replace a substring with another substring 
1318 RETURNS (FIXED BINARY(315); 
3 pect 
MNRS. RREXEREP FIXED BINARY(31) GLOBALREF VALUE, /* Error message code */ 
1318 MNRS ~ERRENEREP FIXED BINARY(31) GLOBALREF VALUE; /* Error message code */ 
1326 js 
13 ; sl String descriptor for user prompt string 
; ® 
15 
13 ¢ Declare 
1 PROMPT_STR seas 77 /* User prompt string descriptor */ 
1337 we sid IXED BINARY(31), 
1 : A bOI NTER; 
1380 Declare 
1 DYN_STRING GLOBALREF , /* {merit string descriptor */ 
1332 2 i" FIXED tBINARY(15), /* Length */ 
15 Tc pl TE /* Type and Class */ 
15 & POINT /* Address */ 
12 5 DYN_STRING_S CHAR (DYN. STRING.L) BASED(DYN_STRING.A); /* String */ 
13 8 T ERD LINE, /* Static command Line descriptor (for subcommands) 
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1539 zt FIXED BINARY(31), /* Length */ | 
: re A POINT ER. /* Address */ 
1 4g 1 REP_LINE, /* Static command Line descriptor (for subcommands) | | 
154 L FIXED BINARY(31), /* Length */ 4 
re A POINTER, /* Address */ | 
1203 CMD_LINE_S CHAR(MAX_EXEC_LINE) STATIC; /* Command buffer to replace ‘a’ with ‘EXECUTE °° *#/ 
138 { 
1549 Declare { 
1550 MONSUB CHAR(1) GLOBALREF ; /* Command Language definition tables ... */ f 
1551 } /* Note -- we simply need a global reference to the { 
1226 : sect /* tables. Their length is unknown and irrelevant */ { 
eclare { 
138% AT _SIGN_S CHAR(1) STATIC INIT(‘@") /« *'g"’ used to search command Line */ { 
1555 EXECUTES CHAR (8) AL INITC*EXECUTE *), /* “EXECUTE "* used to replace the ‘‘a’’ ”. the command { 
1328 AT_SIGN_POS FIXED BINARY(31); /* Position of ‘‘a’' in the command Line * { 
1558 { 
1559 FIRST_MON_CMD = NO; /* First MONITOR cmd executes before went _COMMAND rt { 
1360 DYN_STRING.L = 0; /* Init cmd Line length to enter loop * 
1266 DO WHILE (DYN_STRING.L /* Loop while user enters aut lines */ f 
156 CALL = LIBSGET INPUT (DYN STRING, PROMPT_STR,); /* Read the next subcommand */ ‘ 
1564 IF STATUS = NOT_SUCCESSFOL /* If LIBSGET_INPUT call failed, { 
1565 THEN DO; { 
1566 4 PROMPT = NO; /* Indicate no more prompting */ ( 
1567 4 IF ar = RMSS /* If end-of-input, */ { 
1308 ? THEN RETURN CRORAAL) /* then return with normal status */ 
1570 5 CALL MON_ERR(MNRS pereowt. CALL); /* Otherwise, Log the error ... */ { 
1571 5 CALL ROW cae ERRPROMPT /* and return with status */ ‘ 
1376 5 END; ‘ 
157 & END; ( 
1328 END; { 
§ 
1576 CMD_LINE.L = DYN_STRING.L /* Copy the Length of the command Line */ ( 
1577 CMD_LINE.A = ADDR CRD Ciné m > /* Get the address of the new werk ing buffer */ < 
1578 CMD_LINE_S = DYN_STRING_S; /* Copy the command Line into the buffer */ { 
1579 AT_SIGN_Pos = STRSPOSITTON(CHD_ LINE, DESCRIPTOR(AT_SIGN_S)); /* Locate a ‘a’ in the command Line */ ( 
1580 IF~AT_SIGN_POS > /* Was there one? «/ , : J 
1581 TREN 00; /* Yes, prepare to replace the ‘a’ with “EXECUTE ‘ 
1286 REP_LINE. L = f mp LINE.L + 7; /* Add space for "EXECUTE *' in replacement desc “/ ( 
15 REP _LINE.A LINE.A; /* Get address ef.re sec ppent string * ( 
138% CALC = STRSREPLATE (REP_LINE, CMD_LINE, AT_SIGN_POS, “ Rep ace. the, A “EXECITE °° #/ 
1585 SIGN_POS, BESCRIPTOR(EXECUTE.S));/* (need R to "aeebent trunc warning) */ 
1386 IF 7 = NOT_SUCCESSFUL If STRSREPCACE call failed, 
15 4 CALL MON_ERR(MNRS$_ERREXEREP, CALL); /* Log the error ... */ | 
1 9 ? aE eS ERREXEREP) ; /* and return with status */ ( 
HF 34 3 ELSE ti LINE.L = REP_LINE.L; /* STRSREPLACE succeeded, update length of descr */ 
; ‘ 
1298 | 
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i 
CURR_ERRCODE = MNR$_ERRPARSE: /* Set MONITOR code in case parsing error signaled «| r 
CALL™= CLISDCL_PARSE(CMD_LINE ,MONSUB) ; /* Parse the subcommand */ ‘ 
CURR_ERRCODE = 0; /* Reset to default’ RONITOR code */ { 
IF STATUS = NOT_SUCCESSFUL /* If parse failed, | 
IF CALL = CLIS_NOCOMD /* If ‘no command on Line’ #/ ‘ 
THEN ~ \peapmstatateti /» then quietly ignore it */ { 
ELSE D /* Otherwise, */ 4 
AL L MON_ERR(MNR$_ERRPARSE,CALL); /* log the error ... */ { 
RETURNCHRRS ERRPARSE); /* ... and return with status */ ! 
END; 
CALL = CLISDISPATCH(); /* Execute the parsed command */ 
/* Note -= command subroutines return status */ 
/* values and lo Rs ha own errors by */ 
/* calling MON_ERR */ 
CURR_ERRCODE = 0; /* Reset to default MONITOR code in case subcommand 
RETURN(CALL); /* Return to caller with cmd subroutine’s status */ 


END NEXT_COMMAND; 
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1618 1 NEXT_EXECUTE_COMMAND: Procedure Returns(Fixed Binary(31)); /* Routine to read the next subcommand & execute it 
1620 : [toe 
1621 | /* 
19 ¢ ' - FUNCTIONAL DESCRIPTION: 
16g is NEXT_EXECUTE_COMMAND 
1626 { /* This routine is called by the main routine to read the next subcommand from 
1627 | /* the execute command file and execute it. It returns a status code indicating 
12 3 ' . the disposition of the command. 
1630 } /* INPUTS: 
1631 ; /* 
16 ¢ : /* None 
1633 ; /* 
1634 } /* IMPLICIT INPUTS: 
199) : /* 
1638 i . COMMAND_FILE = file reference used to read the execute command file. 
1638 ' /* EXECUTE = a bit indicating whether or not commands are read from an execute 
1973 ‘ . command file. It has been set to YES before entry to NEXT_EXECUTE_COMMAND. 
1661 | /* OUTPUTS: 
Mb a : /* 
1645 ; /* None 
1644 ; /* 
1645 } /* IMPLICIT OUTPUTS: 
1646 | /* 
of : ° The next command is executed. 
1649 1 /* EXECUTE - a bit indicating whether or not to read from the execute command file 
1650 ; /* for another command. It is always set to YES before entry to NEXT_EXECUTE_COMMAND, 
1631 - and can be set to NO by NEXT_EXECUTE_COMMAND in any of the following situations: 
1688 ' /* 1) Execute command file EOF is encountered. 
1654 ; /* $ The user issues the EXIT subcommand. 
1655 ; /* ) The user strikes CTRL/Z in response to the MONITOR> prompt. 
1656 ; /* 4) The user strikes CTRL/Z while a MONITOR subcommand is running. 
1657 ; /* 5) The file cannot be opened properly. 
1638 i a 6) An error occurs when trying to read the file. 
1660 i /* PUTMSGVEC == a 20-Longword vector which is loaded with error message 
1661 ; /* information by NEXT_EXECUTE COMMAND whenever an error status is 
1668 ; . returned to the caller of NEXT_EXECUTE_COMMAND. 
| e 
H+ ae) ‘ cs ROUTINE VALUE: 
1268 /* A status code indicating the disposition of the command. If an error status, 
160% : a then the PUTMSGVEC error message vector will have been set up. 
; « 
Hs +4 : /* MNRS_ERRPARSE = error parsing command from the execute command file. 
1670 ; /* MNR$ _ERREXEREA = error reading execute command file. 
1671 } /* SS$_RORMAL - Success. 
1676 : /* 
1675 : /* SIDE EFFECTS: 
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1679 | /* 

ion ‘ i : ee wenre = Se ee we Se SS Se eS ee ee SS ee Se Se te em me em ee ee ee ee 

1682 | /s i COMPILE TIME DEFINITIONS i 

1683 | /* ' ! 

1684 ; /* ' oe ee eee Se ee me eee Bs wwore ees eee ne ee om > 

a) 

Ha 14 ZREPLACE MAX_EXEC_LINE BY 256; /* Max execute file line size */ 

Big i 

1691 } /s i 

1692 | /* ! EXTERNAL STORAGE DEFINITIONS ! 

1693 } /* ' ! 

1694 ; /* ' (8 Fe 8 ee oe ee st te er ee we Sw ee tre ewe wreeeae = ee en ee me ee ee eee we te me et me ee ot om em er mm em ee + 

1896 | tee 

1697 Declare 

1698 2 CLISDCL_PARSE EXTERNAL ENTRY‘ANY, ANY) /* Rtn to do DCL-like parsing of cmd Line */ 

1699 2 RETURNS(FIXED BINARY(31)), 

1700 2 CLISDISPATCH EXTERNA /* Rtn to dispatch to Latest parsed cmd */ 

1701 § RETURNS(FIXED BINARY(31)), 

1708 CLISGET_VALUE NTRY(ANY, ANY) /* CLE routine to get qualifier values */ 

170 2 RETURNS (FIXED BINARY(31)), 

1704 2 STRSPOSITION EXTERNAL ENTRY(ANY, ANY, ANY) /* Rtn to locate Ist occurance of a substring */ 
1705 2 OPTIONS (VARIABLE 

1706 § RETURNS(FIXED BINARY(31)), 

1707 STRSREPLACE EXTERNAL ENTRY(ANY, ANY, ANY, ANY, ANY) /* Rtn to replace a substring with another substring 
1708 = 2 RETURNS (FIXED BINARY(315); 

3 

1711 Declare 

ie 2 COMMAND _F ILE FILE GLOBALREF, /* Execute Command File */ 

171 § MONSUB CHAR(1) GLOBALREF, /* Command language definition tables ... */ 

1714 } /* Note -- we simply need a global reference to the 
1715 ; § /* tables. Their length is unknown and irrelevant */ 
1716 NORMAL FIXED BINARY(31) GLOBALREF, /* MONITOR normal return status */ 

At 2 EXECUTE BIT(1) ALIGNED GLOBALREF; /* YES => read another command from the execute file 
1719 Declare 

1720 MNR$_ERREXEREP FIXED BINARY(31) GLOBALREF VALUE, /* Error message code */ 

1721 MNRS_ERREXEREA FIXED BINARY(31) GLOBALREF VALUE, /* Error message code */ 

V7 § MNRS_ERRPARSE FIXED BINARY(51) GLOBALREF VALUE; /* Error message code */ 

1758 

i? ' A ' Sener eeeoomeocma eo Soe ware sera srnceoennmanmnoae SM Ene are Bannan nreanonesesroreaoneecnnamanaae + 

17 $ : /t ! } 

1728 ; /* ! GLOBAL STORAGE DEFINITIONS ! 

1729 ; /* ' i 

1 7 : /* i wee OE SEO eM REE OOO SDE BOE HE REE EERE EO ES HORE EES OS SHES SOO + 

173) ; /*/ 

1738 Declare 

17 1 SUB_ COMMAND GLOBALDEF , 
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if " CATED BINARY(S1), 

\" ? COMMAND _RECORD CHAR(MAX_EXEC_LINE) STATIC VARYING GLOBALDEF; /* Buffer for a subcommand */ 

1739 

1740 | /* 

1 741 ; /* ! Se ee oe em me em 9 mm oe em ee ee mm PPO OOS 8 OO OS 8 SOS SOS SSS SSS SSSSSSSSSSSSSSSSSSSSSSOSGSCSCSZSCSCS +} 

rng : /* ! ! 

1743 } /* : LOCAL STORAGE } 

1744 } /* ! : 

1745 . /* ' eee eo eS SS ea om Ss Se ew Se we BS Se wert we nwa re trent wm sew oer wtor ena nwnee nwa en awn a= (Soe oe om ae ee te oe oe we oe ce oe oe o-+ 

1746 | /*/ 

1747 

1748 

1749 2 Declare 

1750 2 1 REP_LINE, /* Static command Line descriptor (for subcommands) 
1751 2 L FIXED BINARY(31), /* Length */ 

1736 2 A POINTER; /* Address */ 

175 2 

1754 2 Declare 

1755 2 AT_SIGN_S  CHAR(1) STATIC INIT('@") /* *'a"' used to search command Line */ 

1756 2 EXECUTE-S CHAR(8) Ab INITC*EXECUTE *), /* “EXECUTE ** used to replace ‘‘a'' */ 

1757 2 AT_SIGN POS FIXED BINARY(31), /* Position of ‘‘a"' in command Line */ 

1758 2 TEMP_COMMAND_PTR FIXED BINARY(31) /* Alias for SUB_COMMAND.A computation */ 

1759 § BASED (ADDR(SUB_COMMAND.A)); 

ef 

1766 § ON ENDFILE (COMMAND_FILE) GOTO COMMAND_EOF; /* Set up the EOF condition */ 

1764 2 

1765 2 CURR_ERRCODE = MNR$_ERREXEREA; /* Set MONITOR code in case read error is signaled * 
1766 2 READ FILE (COMMAND_FILE) INTO (COMMAND_RECORD); /* Read the next subcommand */ 

a t4 2 CURR_ERRCODE = 0; /* Reset the error code, assume the condition was re 
1769 5 SUB_COMMAND.L = LENGTH(COMMAND_RECORD); /* Set the length of the SUB_COMMAND descriptor */ 
1770 2 SUB_COMMAND.A = ADDR(COMMAND_RECORD); /* Set the address of the SUB_COMMAND descriptor */ 
1771 2 TEMP_COMMAND_PTR = TEMP_C D_PTR + 2; /* pavence, aiy beyond length word */ 

1776 2 AT_SIGN_POS = STRSPOSITION(SUB_COMMAND , DESCRIPTOR(AT_SIGN_S)); /* Locate ‘‘a’’ in command ine */ 

177 2 IFAT SIGN POS > 0 /* Was there a ‘a’ ? */ A 

1774 ; TREN 00; /* Yes, prepare to replace a'' with “EXECUTE "* */ 
1775 REP_LINE.L = SUB_COMMAND.L + 7; /* Add space for “EXECUTE ‘* in replacement string */ 
1776) = 3 REP_LINE.A = SUB_COMMAND.A; /* Get address of subcommand buffer */ 

1777 3 CALC = STRSREPLATE (REP_LINE, SUB_COMMAND, AT_SIGN_POS, /* Replace “a with “EXECUTE ** */ 

1778 3 AT_SIGN_POS, DESCRIPTOR(ERECUTE_S)5;/* (REP LINE prevents truncation warning) */ 

a4 ; IF avers = NOT_SUCCESSFUL /* If STRSREPLACE call failed, */ 

1781 4 CALL MON _ERR(MNR$_ERREXEREP,CALL); /* Log the error ... */ 

178s ? BE TURN CARRS _ERREXEREP) ; /* and return with status */ 

HA 3 - ELSE SUB_COMMAND.L = REP_LINE.L; /* STRSREPACE succeded, upade command desc */ 

1786 2 ; 
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a 
NO 


LERRCODE = BNRS ERRPARSE 
“= CLISDCL. ARSE (SUB_ COMMAND , MONSUB) ; 


art Beker 


IF CALL = CLI$_NOCOMD 
gt RETURA (NORMAL) ; 


dO; 
CALL _MON_ERR(MNRS ERRPARSE, CALL); 
A pataatoce ERRPARSE) ; 


END; 
CALL = CLISDISPATCH(); 


CURR_ERRCODE = 0; 
RETURN(CALL); 


COMMAND 
CLOSE. FILE (COMMAND_F ILE); 
ECUTE = NO; 


EX 
CURR. ERRCODE = 0; 
RETURN(NORMAL) ; 


END NEXT_EXECUTE_COMMAND; 
END MONMAIN; 
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Set MONITOR code in case parsing error signaled * 
Parse the subcommand */ 

Reset to default MONITOR code */ 

If parse failed, */ 


If ‘‘no command on Line’’ */ 

then quietly ignore it */ 
Otherwise, */ 

log the error ... */ 

e+e and return with status */ 


Execute the parsed command */ 

Note -- command subroutines return status */ 
values and tog t8 ew own errors by */ 
cat ane MON 

Reset to default SONI TOR. som in case subcommand 

Return to caller with cmd subroutine'’s status */ 


Close the file after EOF condition raised */ 
Indicate no more from the execute file */ 

Reset to default MONITOR code in case Na ios 
Return to caller with cmd subroutine's status */ 
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GET_QUALIFIERS: Procedure Returns(Fixed Binary(31)); 


4 
1 
‘ 
{e+ 
/* 
FUNCTIONAL DESCRIPTION: i 
| 
is GET_QUALIFIERS | 
® 
/* Communicate with CLE to get qualifier settings and 
/* their values. Record all such info in the MRB (Monitor | 1 
/* Request Block) pointed to by the current value of MRBPTR Hi 
/* (it may be the ‘‘current’’ or the ‘'active’’ MRB). 3 
2 
/* INPUTS: ;. 
® 
. TBS | ;, 
e 
/* IMPLICIT INPUTS: 31 
/s 3 
/* TBS 
/* 
/* OUTPUTS: 
/* 
/* TBS 
/* 
s IMPLICIT OUTPUTS: 
/e TBS | 
/* | 
J * ROUTINE VALUE: | 
® 
/* TBS | 
/* | 
/* SIDE EFFECTS: 
/* 
/* TBS 
/* 
/*/ 
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1857 | 1 /* 
1858 ; 1 fe ! BEmewocaenrnr ae = Sete enor eee monn sae Sewer aeerae mse > marron nar see Seer cen meres ema came 2a} 
1800 i ie INCLUDE FILES 
: * ' L. . | 
iid | 7 
; RE ee a ee ee a ae So Seana wen Huo mE Ewen mane maw eee OO ww woe me a } | } 
1888 ‘= % /*/ 
1864 1 | 
1683 } ZINCLUDE MONDEF ; /* Monitor utility structure definitions */ ; 
634; 1 /* 
6 5 | 1 /* | eeseecesce Oo eR somes es eecmreeecaee enenaaa a eo Ee Se Sw EDO OEE eS +> 
636; 1 /* ' ! 
2637 }| 1 /* ! SYSTEM SERVICE MACRO DEFINITIONS ' ; 
2638 | 1 /* ! ' 
2639 : 1 /* | ewseeeeeeeeeeeeecece eeweeeseeoeseceeooceocaon eeeceseocesca seeeeceeoeeeesoesoeoeoceeeseeaeeoecn 4 3 
2640 : 1 /*/ | 
2641 1 | 
g648 i ZINCLUDE SYSSGETTIM /* $GETTIM system service */ | 3 
2649 ; 1 /* leeeece ee oo wm ee ae we OBB enon DeBoer wmrornroereomwe senate me + 
2650 : 1 /* ' ! 
2651 ; 1 /* ! EXTERNAL STORAGE DEFINITIONS ! 
$028 - /* ! ! 
265 ; 1 /* ' waeree essen ennrewre enw nen eevee ec ewe eee ewe en ewe ewe esr wwe me erwmewersew ee nrecnww ewe enn ewae some} 1 
2654 ; 1 // 
2655 1 . 
2656 1 Declare 3 
2657 1 CLIS_PRESENT FIXED BINARY(31) GLOBALREF VALUE, /* CLISPRESENT return status code for ‘‘explicitly pr | 
2658 1 CLIS_“NEGATED FIXED BINARY(31) GLOBALREF VALUE, /* ClISPRESENT return status code for ‘‘explicit ty ne 
$023 1 NORMAL FIXED BINARY(31) GLOBALREF, /* MONITOR nornel return status */ | 
660 1 are POINTER GLOBALREF /* Pointer to MRB (Monitor Request Block) */ 
26611 POINTER DEF INED(HREPTR) /* Shorthand synonym for MRBPTR */ | 
$068 1 DEF MRBPTR POINTER o OBALREF , /* Pointer to ‘default’ MRB (Monitor Request Block) | 
1 MCAPTR POINTER GLOBALREF , /* Pointer to MCA (Monitor Communication Area) */ | 
$068 1 mC POINTER DEFINED(RCAPTR) /* Short-hand synon yn for MCAPTR */ 3 
665 1 QUALPTR 8 tall GLOBAL Rec’ /* Pointer to Qualifier Descriptors Block */ 3 
666 1 DEFPTR POINTER et OBAL /* Pointer to Qualifier Default Value Descriptors BL ; 
rot : CURR_ERRCODE FIXED BINARY(31) ELOBAL REF; /* MONITOR error status code currently expected */ 
669 1 
2670 1 3 tare VOL POINTER GLOBALREF, /* Pointer to volatile /INPUT sth gr epee «/ 
671 1 bse PTR VOL POINTER GLOBALREF, /* Pointer to volatile /DISP LAY file-spec */ 
67 1 REC PtR_QOL POINTER GLOBALREF, /* Pointer to volatile /RECORD file-spec */ 
67 1 SUMA_PTR_VOL POINTER GLOBALREF, /* Pointer to volatile /SUMMARY file-spec */ 
or : COMM~PTR_VOL POINTER GLOBALREF ; /* Pointer to volatile /COMMENT string */ 
676 1 Declar 
677 1 INP_PTR_SWAP BIT(1) ALIGNED GLOBALREF, /* YES => swap INP_PTR A and INP_PTR_PERM */ 
678 1 DISP_PTR SWAP ®BIT(1) ALIGNED SLOSALREE - /* YES => swap biSP PTR_V opis? PTR comm «/ 
679 1 REC PTR_SwaP BIT(1) ALIGNED GLOBALREF, /* YES => swap R err vor PTR_PERM | 
680 1 SUMA_PTR_SWAP BIT(1) ALIGNED GLOBALREF, /* YES => swap UMA PTR _VOL a TCORM. PTR_P PER n */ 
vet : COMM— PTR- SWAP BIT(1) ALIGNED GLOBALREF; /* YES => swap COMM_ “PTR- VOL and COMM_ “PTR- PERM */ 
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| 
ee | SYN. STRING GLOBALREF /* Dynamic string descriptor */ 
% * Dynamic string descriptor * 
685 1 L FIXED  BINARY(15), /* Length «/ . | 
rey] 1 TC CHAR(2), /* Type wa Class */ 
ret : & POINTER, /* Address */ 
oS } DYN_STRING_S CHAR(DYN_STRING.L) BASED(DYN_STRING.A); /* String */ 
691: 1 /* 
69 ; 1 /* ' Se esweewee ener eee eee ae eee ene = een eect eo eoowowzenrnaoee narra wer ene enwt ree ewen ema e eo a —Ss ee we Bw we Hew fe 
693 : 1 /* ' ' 
694; 1 /* ' EXTERNAL ROUTINE DEFINITIONS : 
695 : 1 /* : : 
696 . 1 / oe leeoecea Seema seecunna Sa Ses eee oerweae nanos son ean craananaaa SO eee eee Serwrome trea wae wanes ee eee a + 
697 : 1 /*/ 
698 1 
699 1 Declare 
700 1 CLISGET_VALUE ENTRY(ANY, ANY, cin BINARY(15)) /* CLE routine to get qualifier values */ 
701 1 OPTIONS(VARIABLE) RETURNS(BIT(1)), 
70 1 CLISPRESENT EXTERNAL ENTRY(ANY) RETURNS(FIXED BINARY(31)), /* CLE routine to determine presence of Gut ty rere a 
70 1 LIBSCVT_TIME EXTERNAL wees B1T(64) ALIGNED) /* RTL routine to convert to qword time val */ 
704 1 RETURNS (BIT(1)) 
705 1 STRSUPCASE EXTERNAL ENTRY (ANY, ANY) RETURNS (BIT( * RTL routine to_upcase a string */ 
sree : MON_ERR ENTRY (ANY VALUE, ANY, ANY) OPTIONS(VARIABLE); /* MONITOR MACRO=32 routine to log anndirceaes error 
2708 ; 1 /* 
709 ; 1 /e leeeeececeeeecea Seren enrneeroen ana e eee er eeees Smee eee ae Oe Ge eo OOH + 
710: #1 /* ! ! 
7th /* ‘ MESSAGE DEFINITIONS ' 
712 3: #1 /* ! : 
71 ; 1 /* | eeeesecce one cem eee ew ecrenarec amo weeenrnr eran wro arse sere nm reese nro ree eo remo erni enone wnr eo ana cen be 
714; #1 // 
ne | 
a9 1 RNRS. INVBTIMSP FIXED BINARY(31) GLOBALREF VALUE, /* Error message code */ 
718 1 MNRS_INVETIMSP FIXED BINARY(31) GLOBALREF VALUE, /* Error message code */ 
719 1 MNRS_INVINTSP FIXED BINARY(31) GLOBALREF VALUE, /* Error message code */ 
720 1 MNRS$_INVFLUSHSP FIXED BINARY(31) GLOBALREF VALUE, /* Error message code */ 
721 1 MNRS_INVVIEWSP FIXED BINARY(31) GLOBALREF VALUE, /* Error message code */ 
y ¢ : mans. INVINPFIL FIXED BINARY(31) GLOBALREF VALUE; /* Error message code */ 
IS ; 1 /e ' Se eeeeeeoeeoeoeeeneeneo Se See SSS SSS SSS SSSSSSSSSSSSSSSSSSFSSESSES2e2SEe See eeeeeeeeeeeeeeee + 
725: 1 /* i } 
7 $ ; 4 /* : GLOBAL STORAGE DEFINITIONS : 
far s @ /* : ! 
7 8 ; 1 /e leesccececeo wees eee eon eee Seen one erat eanwrereorenosee enna new eene senna nen oer er oeerenwoes + 
729: #1 /*/ 
7 1 
731 1 Declare 7 = 
§ : QUAL_SPECIFIED ®IT(1) ALIGNED GLOBALDEF INIT('O'B); /* YES => at least 1 qualifier explicitly spec'd */ 
734; 1 /* 
7 5 § 1 /t ‘ SP > ce ee te em me te Se eee ee ee ne wpewe ane sereeannne rvs et Be we ewes sew wee ene eo wee eeeceoeea eee + 
736: 1 /* ‘ } 
737 3 (1 /* : COMPILE-TIME CONSTANTS : 
738: 1 /* : : 
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fe i 

741 1 

7%4 1 SECONDS TOK_S 

74 1 ZREPLACE TIME_TOR SIZE 

744 ! ZREPLACE FILE-SPEC_SIZE /* Max file spec size */ 


/* | eeweeecnn eee cocoscc teense scence e ese ec ene een een nee te wconm ear een meno ne ean mamecew aves + 
/*/ 
ZREPLACE ONDS_T IZE BY 7; /* Size of token for seconds */ | 
By 46; /* Size of token for time specs */ 
BY 128; ri 
4 
4 
4 
4 
4 
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/e ' OS SSS SSS SS SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSOSISOSISSISOSOS“SS aeoeos eons aoe + i 
/* : ' 
/* : OWN STORAGE 
/* 


/* i Se e222 See eenenenenanea See eee eoeenenaneaane Se eG SS een enonaneae eeeoeoaaeo ene zeae + 


/* ' em me ee ce me ome we ee See em we we ew we ce ww Tees es Se es ew eee Se Se ee em eee ee eee ee + 
/* ' ' 
/* 4 LOCAL STORAGE : 
/* : i 


/* l eeceecesoeeceeseecn ee eeneorzecowa= eomaace Deo Se eS Dorner non enw enero eeesoeensaenoceecssnras + 


Declare 
TEMP ALA HE 

CALL ARY (31) /* Holds function value (return status) of called ro 
STATUS SED(ADDR(CALL)); /* Low-order status bit for called routines */ 
Declare 

FILE_SPEC_PTR POINTER, /* Pointer to structure consisting of file-spec ... 
/* ... string descriptor followed by string itself * 
PARSED_SPEC_PTR POINTER, /* Pointer to structure consisting of file-spec ... 
/* ... string descriptor followed by string itself * 


COMM_STR_PTR POINTER; /* Pointer to structure consisting of comment ... 
«+. String descriptor followed by string itself * 


PMOPRIKORORORONOPUPO Ro NONUPEfonononononofnofnorornononofnonofnornyd 
~“ SANS NNN NN NNN NSS 
~“N $s s z SSSVSEFs yo oF oF 
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clar 
FILE SPEC BASED(FILE 3 PTR), /* File-spec string descriptor and string */ 
C FIXED BINARY(31J, /* File-spec string length */ 
A POINTER, /* File-spec string address */ 
S$ CHAR(FILE_SPEC_SIZE), /* File-spec string */ 
1 PARSED_SPEC BASED(PARSED_SPEC_PTR), /* Parsed File-spec dynamic string descriptor and st 
L FIXED BINARYT15), /* Length */ 
T FIXED BINARY(7), /* Type */ 
C FIXED BINARY(7), /* Class */ 
A POINTER, /* Address */ 
1 DYN_SPEC GLOBAL DEF /* Dynamic File-spec string descriptor and string */ 
L FIXED BINARY(15), /* Length */ 
T FIXED BINARY(7), /* ryee «/ 
C FIXED BINARY(7), /* Class */ 
A POINTER; /* Address */ 
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4 
4 
4 
4 
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4 
4 
4 
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4 
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4 
4 
4 
4 
4 
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4 
4 
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4 
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4 
4 
4 
4 
4 


~ 
rs . ) a 


(COMM_STR_PTR), /* Comment descriptor and string */ 
BINARY(37), /* Comment string length */ 

R /* Comment string address */ 

CHAR (MNR_HDRSK_MAXCOMLEN) ; /* Comment string */ 


a ee 
Ta 
2 


/* Temporary ‘‘scratch’’ area */ 
} 


—> eo ss a tt 


1g 94-1 a 98:45:95 — Y8ksumsmaster:PAONTOR SRCIMONMAIN.PLTST* (37) 


/* gto descriptor for qualifier value */ 
* Length */ 
/* Address */ 


<2 


/* Qualifier value string for time values */ 
‘ /* Qualifier value string for seconds values */ 
/* Actual Length of time spec */ 


Pee RE RR RR RR RR RE Ee ee 
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1 1 4 
ei i QUAL_SPECIFIED = NO; /* No qualifiers explicitly specified yet / ( 
1 } CALL = SYSSGETTIM(MC=>MCASQ_CURR_TIME); /* Get current time from system */ | d 
| 
9 1 Q_VAL.L = LENGTH(Q VAL TIME); /* Set length field of descriptor */ 4 
si8 : Q"VAL.A = ADDR(Q_VAL_TIME); /* Set address field of descriptor */ d 
. 0 1 CALL = CLISPRESENT(QUALSL_BEG); /* Get BEGINNING qualifier presence indicato 4 
1 1 IF CALL = CLIS_PRESENT /* If explicitly present, */ 4 
as 1450; 
824 QUAL SPECIFIED = YES; /* Indicate qualifier explicitly specified * 
825 IF CCISGET_VALUE (QUALSL_BEG,Q_VAL,TS_LEN) /* Get "BEGINNING'’ etcing and check status * 4 
8 : THEN DO; /* Value was specified * 4 
8 Q_VAL.L = TS_LEN; /* Pick up actual length */ 4 
8 8 IF OVAL «L >"TIME_TOK_SIZE /* Check for valid size for time spec */ ‘ 
8 i CALL _MON_ERR(MNRS_INVBTIMSP); /* Log possible error */ 4 
th ° SE LUNAS JINOT IAG?) 5 /* ... and return with status */ , 
638 ; IF * STRSUPCASE (Q_VAL.@_VAL) /* Upcase and check status */ 
835 4 CALL MON_ERR(MNRS INVBTIMSP); /* Log possible error */ 4 
te ? RETURN CARRS _INVBTIRSP) ; /* ... and return with status */ ‘ 
838 3 IF * LIBSCVT_TIME(Q_VAL,M->MRBS$Q_BEGINNING) /* Cyt to system time */ 4 
839 THEN DO; 4 
840 4 CALL MON_ERR(MNRS$_INVBTIMSP); /* Log possible error */ 4 
841 4 RETURN(MARS_INVBTIMSP) ; /* ... and return with status */ 4 
ote 4 END; 4 
84 3 END; 4 
844 4 
845 ELSE /* Value was defaulted */ 4 
oo a M->MRBSQ_BEGINNING = DEF _MRBPTR->MRBS$Q_BEGINNING; /* Store the default value */ , 
88 OC ‘ 4 
ss 1 Q_VAL.L = LENGTH(Q_VAL_TIME); /* Set length field of descriptor */ , 
spe 1 CALL = CLISPRESENT(QUALSL_END); /* Get ENDING qualifier presence indicator * 4 
o3¢ 1 IF CALL = CLIS_PRESENT /* If explicitly present, */ 
85 1 THEN 
Bee 1 b0; . 
35 QUAL SPECIFIED = YES; /* Indicate qualifier explicitly specified * 
B28 IF CCISGET_VALUE (QUALS$L_END,Q_VAL,TS_LEN) /* Get ‘ENDING’ spring and check status */ 
85 THEN DO; /* Value was specified */ 
858 Q VAL.L = TS_LEN; /* Pick up actual Length */ 
859 IF 0 et > TIME_TOK_SIZE /* Check for valid size for time spec */ 
ast 4 CALL _MON_ERR(MNRS_INVETIMSP); /* Log possible error */ 
; ? OE TURNERS LONE TIERS?) /* ... and return with status */ 
4 ; IF * STRSUPCASE (@_VAL.@_VAL) /* Upcase and check status */ 
4 CALL MON _ERR(MNRS_INVETIMSP); /* Log possible error */ 
86 4 RETURN(MARS_INVETIMSP); /* ... and return with status */ 
| 
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ND; 
IF * LIBSEVYTINE(O_ VAL M->HRBSO_ENDING) /* Cvt to system time */ 
7 CALL MON _ERR(MNRS_INVETIMSP); /* Log possible error */ 
y ? SC TURNCFRRS INVE TINGE) ; /* ... and return with status */ 
ie END; : 
A} ELSE /* Value was defaulted */ 
te m M->MRBSQ_ENDING = DEF _MRBPTR->MRBS$Q_ENDING; /* Store the default value */ 
8791 . 
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r 
0 1 Q_VAL.L = LENGTH(Q_VAL_SECS); /* Set Length field of descriptor */ ( 
yD \ Q™VAL.A = ADDR(Q_VAL_SECS); /* Set address field of descriptor «/ : 
88 1 CALL = CLISPRESENT(QUALSL_INT); /* Get INTERVAL qualifier presence indicat 4 
88 F-CALL = CLS PRESENT 7* If explicitly present, ©/ ee: d 
885 1 THEN ( 
BBS : BUAL SPECIFIED = YES /* Indi Lifi Licitl ified 
= ; * Indicate qua er explicitly specified * 
888 IF CCISGET_VALUE (QUALS$L_INT,Q_VAL) /* Get FINTERVAL!” string and check’ status «/ 4 
889 THEN DO; /* Value was specified */ 4 
890 Q_ VAL.L = INDEX(Q_VAL_SECS," ') = 1; /* Eliminate trailing blanks */ ( 
832 Tr ennvat et <= 0 /* Check for valid size for ‘’seconds’’ */ 
89 4 CALL_MON_ERR(MNRS$_INVINTSP); /* Log possible error */ ‘ 
Seee ? SE URN INS AMV INT SPDs /* ate ond return with status */ i 
$596 H CURR_ERRCODE = MNRS_INVINTSP; /* Set MONITOR code in case conversion error ( 
897 M->MRBSL_INTERVAL ="BIN(SUBSTR(Q_VAL_SECS,1,Q_VAL.L),31); /* Convert seconds to binary */ ( 
898 CURR_ERRTODE = 0; /* Reset to default MONITOR code */ ( 
2899 TF _N=>MRBSL_ INTERVAL <= 0 /* Check for valid value */ , 
2901 4 CALL_MON_ERR(MNRS$_INVINTSP) ; /* Log possible error */ ( 
¢ 4 RETURN(MARS_INVINTSP) ; /* ... and return with status */ ( 
290 4 END; ( 
2904 3 END; ( 
905 § 4 
906 ELSE /* Value was defaulted */ d 
st § M->MRBSL_INTERVAL = DEF _MRBPTR->MRBSL_INTERVAL; /* Store the default value */ , 
909 «1 ; é 
9 ! Q_VAL.L = LENGTH(G_VAL_SECS); /* Set length field of descriptor */ , 
at} 1 CALL = CLISPRESENT(QUALSL_FLUSH); /* Get FLUSH qualifier presence indicator */ 4 
1 1 IF CALL = CLIS_PRESENT /* If explicitly present, */ 4 
is 4 "50 
16 QUAL SPECIFIED = YES; /* Indicate qualifier explicitly specified * d 
17 IF CCISGET_VALUE (QUALSL_FLUSH,Q_VAL) /* Get ‘FLUSH’ string and check status */ ( 
18 THEN DO; /* Value was specified * 4 
19 Q VAL.L = INDEX(Q_VAL_SECS," ') = 1; /* Eliminate cre} ting blanks */ 4 
, dF a -VALoL <= 0 /* Check for valid size for ‘seconds’ */ 
§ 4 CALL_MON_ERR(MNRS_INVFLUSHSP) ; , /* Log possible error */ ‘ 
? ? BE TURN CARRS _INVELOSHSP) ; /* ... and return with status */ 
5 CURR_ERRCODE = MNRS_INVFLUSHSP; /* Set MONITOR code in case conversion error ( 
$ M->MRBSL_FLUSH = BIR(SUBSTR(Q_VAL_SECS,1,Q_VAL.L),31); /* Convert seconds to binary */ 4 
CURR_ERRTODE = 0; /* Reset to default MONITOR code */ ( 
3 Hat peer Luan <= 0 /* Check for valid value */ 
9 4 CALL_MON_ERR(MNRS_INVFLUSHSP) ; /« Log possible error */ 4 
5 ‘ RETURN CHARS _INVELOSHSP) ; /* ... and return with status */ ( 
; . 
§ ; END; 
335 ELSE /* Value was defaulted */ 
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« M=>MRBSL_FLUSH = DEF _MRBPTR=>MRBSL_FLUSH; 


Q_VAL.L = LENGTH(Q_VAL_SECS); 


cat = CLISPR sERESENTE VIEW); 


IF CALL = CLI 
THEN 


DO; 
QUAL SPECIFIED = YES; 
id lente” VALUE (QUALSL -VIEW,Q_VAL) 


Q VAL. ok = a hee VAL_SECS,* ") = 1; 


ELSE 
- M->MRBSL_VIEWING_TIME = 


IF Q_VAL.L <= 0 
TH EN 


CALL MON_ERR(MNRS_INVVIEWSP); 
RETURN(MARS_INVVIEWSP) ; 


END; 
CURR_ERRCODE = MNRS$_INVVIEWSP; 


M->MRBSL_VIEWING_TIME = 


CURR_ERRTOD 


— = 0; 
IF AnDMRBSL VIEWING_TIME <= 0 


CALL MON_ERR(MNRS_INVVIEWSP); 
RETURN CRRA INVVIEWSP) ; 


END; 


DEF _MRBPTR->MRBSL_VIEWING_TIME; 
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/* 


/* 


/* 


Store the default value */ 


Set length field of descriptor */ 


Get VIEWING_TIME qualifier presence indic 
If explicitly present, */ 


Indicate qualifier explicitly specified * 
Get VIEW NG_TIME string and check statu 
Value was specified */ 

blanks */ 

z 


Eliminate tra bing 
Check for valid size for ‘‘seconds'’ */ 


Log possible error */ 
eee and return with status */ 


/* Set MONITOR code in case conversion error 
BIN(SUBSTR(Q -VAL_SECS,1,Q_VAL.L), SN): */ 


/* Convert seconds to binary 


* Reset to default MONITOR code «/ 


Check for valid value */ 


Log possible error */ 
eee and return with status */ 


Value was defaulted */ 
Store the default value */ 
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1 CALL = Ney :t TE PRESENTE BY_NODE); /* Get BY_NODE qualifier presence indicator 
: IF ret = CLIS_PRESENT /* If explicitly present, */ 
1 50 

QUAL SPECIFIED = YES; /* Indicate queti tier explicitly specified * 

RARBSV_ BY_NODE = YES; /* Turn on flag in MRB * 
1 
} IF oe = CLIS NEGATED /* If explicitly negated, */ 

QUAL SPECIFIED = YES; /* Indicate gees titer euplterety specified * 
Rh >ARBSY J BY_NODE = NO; /* Turn off flag in MRB 

1 
1 CALL = ott ine INP); /* Get INPUT qualifier presence indicator */ 
: IF Dot RESENT /* If explicitly present, */ 
2 QUAL gd ab = Li /* poersete qualifier ores senee? apes tt tee * 
2 Frey MFSUM = /* Set to NO for now (may ch ange in BUILD_IF 
3 CAL = BUILD. IFB_T WABLE () : /* Build the table of Input File Blocks (IFB 
3 THEN RETURN(CALL) ; /* return with error status, herapsort was alr 
1 IF CALL = cLis _NEGATED /* If explicitly negated, 
2 QUAL SPECIFIED = YES; /* Indicate qualifier veltettt specified * 
2 M->MRBSV_MFSUM = NO; /* Turn off Multi-File Summary ndicator */ 
$ SnneSA,, INPUT = NULL(); /* Indicate no input file * 
1 ° 
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CALL = CLISPRESENT(QUALSL_DISP); 
IF CALL = CLIS_PRESENT 
THEN DO; 
QUAL_SPECIFIED = YES; 
IF DISP_PTR_VOL = NULL() 
THEN DO; 
ALLOCATE FILE_SPEC; 
DISP_PTR_VOL = FILE_SPEC_PTR; 
FILE“SPEC.L = LENGTACFILE SPEC.S); 
FILE-SPEC.A = ADDR(FILE_SPEC.S); 
END; 
ELSE DO; 

FILE_SPEC_PTR = DISP_PTR_VOL; 
FILE-SPEC<L = FILE_SPEC_SIZE: 
END; 

IF CLISGET VALUE (QUALSL_DISP,FILE_SPEC) 
DISP_PTR_SWAP = YES; 
TEMP-= IRDEX(FILE_SPEC.S,' ') = 1; 
IF TEMP >= 0 THEN FILE SPEC.L = TEMP; 
M->MRBSA_DISPLAY = FILE_SPEC_PTR; 
N~>MRBSV_DISP_TO_FILE ="YES; 


ELSE 00; 
M->MRBSA_DISPLAY = ADDR(DEFS$L_DISP); 
N->MRBSV_D1SP_TO_FILE = NO; 


END; 
IF CALL = CLIS$_NEGATED 
THEN DO; 


QUAL_SPECIFIED = YES; 
M->MRBSA_DISPLAY = NULL(); 
BA DARBSV_DISP_TO_FILE = NO; 


CALL = CLISPRESENT(QUALSL_REC); 
IF CALL = CLIS_PRESENT 


YES; 
NULL () 
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ELSE FILE_SPEC_PTR = REC_PTR_VOL; 
IF CLISGET VALUE (QUAL$L_REC,FILE_SPEC) 
THEN DO; 
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/* Get DISPLAY qualifier presence indicator 
* If explicitly present, */ 


* Indicate qualifier explicitly specified * 
/* If no volatile file spec string area, */ 


/* then get one */ 

/* set up a ‘9 to it */ 

/* set length ... */ 

/* and address in descriptor */ 


/* Otherwise, sinoly point to existing one * 
/* ... and re-init its length */ 


/* Qualifier value specified ? */ 


/* Yes -- ind to SET_CMD a ptr swap is neces 
/* Find trailing blanks in value (string) */ 
/* If found one, set new Length */ 

/* Store away pte to value descr */ 

/* Indicate filespec specified */ 


/* No -- qualifier value defaulted */ 
/* Store a default value descr */ 
/* ... and default indicator */ 


/* If explicitly negated, */ 
/* Indicate qualifier explicitly specified * 


/* Indicate no display output */ 
/* eeeeee «/ 


/* Get RECORD qualifier presence indicator * 
/* If explicitly present, */ 

/* Indicate qualifier explicitly specified * 
/* If no volatile file spec string area, */ 


/* set up a ptr to it */ 
/* set length ... */ 

/* and address in descriptor */ 

/* Otherwise, simply point to existing one * 


/* Qualifier value specified ? */ 


TOR Sd TNS, Ph 4 
MONMAIN 6 Up 1984 02:11:11 VAX-11 PL/I X2.1-273 . (i 
v04= -3eb= 138 18: b9:57 ISKSVMSMASTER: LMONTOR. SRCIJMONMAIN.PLI; 139° si 04 
055 REC_PTR_SWAP = /* Yes -- ind to SET_CMD a ptr swap is neces. 
096 3 RD ARBSK_ RECORD = Siite _SPEC_PTR; /* Store away pointer to string descr #/ x 
058 | ! 
Dp ; ELSE M=->MRBSA_RECORD = ADDR(DEFSL_REC); /* No == store a default value */ | ri 
‘sd ¢ END; 50 
3068 1 IF CALL = = CLIS_NEGATED /* If explicitly negated, 3 
3065 2 QUAL SPECIFIED = YES; /* Indicate qualifier explicitly specified * 5C 
066 2 M->MRBSA_RECORD = NULL(); /* Indicate no record output */ o¢ 
bck ‘ END; x 
30691 CALL = CLISPRESENT (QUALSL_ SUMM) ; /* Get SUMMARY qualifier presence indicator aC 
3070 IF CALL = = cLIs_P RESENT /* If explicitly present, * 3 
307 2 QUAL_SPECIFIED = YES; /* Indicate qualifier explicitly specified * 5¢ 
are é IF SOMA P TR. VOL = NULL() /* If no volatile file spec string area, */ é 
3075 3 ALLOCATE FILE_SPEC; /* then get one */ 5¢ 
3076 3 _PTR_VOL = FILE SPEC_PTR; /* set up a ptr to it */ SC 
3077 3 FILE-SPEC.L = LENGTACFILE SPEC.S); /* set length... */ 51 
78 ; PILE_SPEC.A = ADDR(FILE_SPEC.S); /* and address in descriptor */ 3! 
3080 92 : 51 
Son. § ELSE FILE_SPEC_PTR = SUMM_PTR_VOL; /* Otherwise, simply point to existing one *| 3] 
$088 § IF ee SUMM,FILE_SPEC) /* Qualifier value specified ? */ | 3] 
3085 3 SUMM_PTR_SWAP = YES; /* Yes -- ind to SET_CMD a ptr swap is neces 51 
He ; eae “SUMMARY = FILE_SPEC_PTR; /* Store away pointer to string descr */ 2] 
3088 «= 2 ‘ 51 
3089 § ELSE M->MRBSA_SUMMARY = ADDR(DEFSL_SUMM); /* No == store a default value */ | 3\ 
ad ¢ END; 3} 
3098 : IF Oy CLs. NEGATED /* If explicitly negated, 3] 
3098 2 QUAL_SPECIFIED = YES; /* Indicate qualifier explicitly specified «| 51 
5 § M-> >MRBSA_ SUMMARY = NULL(); /* Indicate no summary output */ 3] 
ed . 51 
099 1 CALL = at 2 ty ot COMM) ; /* Get COMMENT qualifier presence indicator | 
4190 ! If — yee RESENT /* If Ramey ny A present, */ 
106 2 QUAL specie tee = YES; /* Indicate qualifier explicitly specified * 
+ 2 IF COMM_PTR -VOL = NULL © /* If no volatile comment string area, */ 
105 ALLOCATE COMM_STR; /* then get one ... */ | 
138 ; COMM_PTR_VOL = COMM. STR_PTR; /* and set up a ptr to it */ | 
108 ; 
1%3 ; ELSE COMM_STR_PTR = COMM_PTR_VOL; /* Otherwise, simply point to existing one = 
$14 IF CLISGET_VALUE (QUALSL_COMM,DYN_STRING) /* Qualifier value specified ? */ 
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113 THEN DO 
11 COMM_STR.S = DYN_ STRING. /* Yes == move string out of dyn area */ 3} 
114 COMM-STR.L = DYN-STRIN G2 /* ... and set up its length 1 
115 COMM“STR.A = ADDR COMM’ §TR.S); /* ... and address */ 51 
11g TR_SWAP = YES; /* Ind to SET_CMD a ptr swap is necessary 7 1 
WV M->MRBSA-COMMENT = COMM_STR_PTR; /* Store away pointer to string descr */ | 
119 : | 1 
: ° ELSE M->MRBSA_COMMENT = NULL(); /* No == store a default value */ 2} 
; ¢ ¢ END; ; 
\ : i IF CALL 2 LIS. NEGATED /* If explicitly negated, */ 
3132 2 QUAL_SPECIFIED = YES; /* Indicate qualifier explicitly specified * 31 
3127 2 on MRBSA_COMMENT = NULL(); /* Indicate no comment string */ 3} 
1297 : 51 
3183 1 RETURN(NORMAL); /* Return with status */ 51 
3131 | | 
5 
51 
51 
51 
| 2 
| 51 
| 51 
| 51 
| 
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| 
| 
| 
3 1 BUILD_IFB_TABLE: Procedure Returns(Fixed Binary(31)); | 2; 
134 | /eee | 
135 ! /* | 4 
1 ' “ FUNCTIONAL DESCRIPTION: | 5 
* | 
138 is BUILD_IFB_TABLE | 2; 
140 } /* This routine builds the IFB (Input File Block) TABLE. 2. 
141 } /* In addition, it sets up MRBSA_INPUT to point to the IFB TABLE, and : 
136 H /* sets u mRB$B_INP_FILE to be the number of input files described by é. 
145 } /* the table. , 
144 | /* 2, 
145 | /* INPUTS: 23 
146 ‘ /* é: 
147 | /t None 5: 
148 } fe 2. 
149 } /* IMPLICIT INPUTS: 3: 
150 } /* 2, 
151 } /* IFB_TABLE, MRB 3: 
13¢ ' /* 2. 
153 } /* OUTPUTS: 2; 
154 : /* 3! 
153 ; /* None 5 
156 | /* 2: 
137 - IMPLICIT OUTPUTS: 2, 
159 is IFB_TABLE built, MRBSA_INPUT and MRBSB_INP_FILES estblished. 3] 
; © 
161 /* ROUTINE VALUE: 3} 
188 ie Normal, or bad status from LIBSFIND_FILE 2] 
: * i 
165 | é /* SIDE EFFECTS: 3! 
166 | /* 3] 
167 i 2 /* None 31 
168 | 2 /* 
169: 2 /*/ 3} 
170 2 | 31 
| 
| 
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171: /* 2. 
1 7 H /* ' Se wrerenzn roe rears Bes ee we oe Se See Ce FS BF Se Dern se Sew ew wen we ee eee STE SO TH KH SS weesesoer ewes > 

18 : /* i 5 
174 | /* i GLOBAL STORAGE DEFINITIONS i | H 
175 } /* i | 
1 76 | /* ' seater ows mae woe mae wae eee a = (Seem ee a ce ee ee ee a ee ee ee sma eoe name nv ae sn aenas Seen ne ane wee soe So oe+ | é. 
Ved Bay eit 
179 Declare | 5" 
MS MAX_INP_FILES FIXED BINARY(31) GLOBALDEF VALUE INIT(125); /* Max no. of input files for multi-file summery | 3 
18 
188 : /* | 5 
1864 . /t ' Sewanee nee TOT BOR BETTE eee eee eee seeeeeeoeeoeoen See nee nrnanwen nae ner enn rere se eee ewes e + 5, 
185 } /* \ ' P] 
186 ; /* : EXTERNAL REFERENCES : Py 
187 ; /* ‘ ' 5 
188 : /* | emmeooooeoeeecn CK SOR ROE BEM DEB O RE ORR BORO EE DHOOM OE TE DOMED Eo eT M OSE MOE OOS + 5, 
189 /*/ : 
Shep ZINCLUDE MONDEF ; /* Monitor utility structure definitions */ 
a $ Declare 5 
961 2 ENTRY (ANY VALUE, ANY, ANY) OPTIONS(VARIABLE), Py 
96¢ : /* Routine to log synchronous errors */ 5. 
96 DSCSK_DTYPE_T FIXED BINARY(15) GLOBALREF VALUE, /* string descr. type */ 5, 
3964 DSCSK_CLASS_D FIXED BINARY(15) GLOBALREF VALUE, /* Dynamic descr. class */ Py 
965 SS$_ NORMAL FIXED BINARY(31) GLOBALREF VALUE, /* System normal return status */ >: 
966 RMSS_EOF FIXED BINARY(31) GLOBALREF VALUE, /* RMS end-of-file return status */ Py 
967 RMSS_NMF FIXED BINARY(31) GLOBALREF VALUE, /* RMS no-more-files message for wildcard parsing */ 5 
3968 $ RMS$_FNF FIXED BINARY(31) GLOBALREF VALUE, /* RMS file-not-found message */ 2: 
3969 MNRS$_OPENIN FIXED BINARY(31) GLOBALREF VALUE /* Error message code */ ! 
3970 § MNRS-TOOMNYFILES FIXED BINARY(31) GLOBALREF VALUE, /* Error message code */ Py 
3971 LIBSFIND_FILE EXTERNAL ENTRY(ANY,ANY,ANY,ANY,ANY,ANY,ANY) /* RTL routine to parse a wildcard spec*/ 5, 
397 2 OPTIONS(VARIABLE) RETURNS(FIXED BINARY(31)), 5 
397 2 LIBSFIND FILE END EXTERNAL ENTRY(ANY), /* RTL routine to end wildcard spec parse*/ 5 
974 2 LIBSSCOPY_DXDR EXTERNAL ENTRY(ANY,ANY), /* RTL string copy routine */ 5. 
975 IFB_TAB_VOL POINTER GLOBALREF /* Pointer to volatile IFB_TABLE */ 5: 
sa8 I1FB_TAB_SWAP BIT(1) ALIGNED GLOBALREF ; /* YES => swap IFB_TAB_VOL and IFB_TAB_PERM */ 2 
ore Gre ramen tite Je mere = eas “len Shon aee toe hcarer ene) 5 
980 | 3 /* i 2 
981 ; /* : LOCAL STORAGE ! ! 
982 : /* ! ' : 
98 ; /e leeeeceeeeoooesoeoesoeesssesoesosesoes Sot eee etree tenn sso ene mse er ner nweanr es aowae wee on , 
See : /*/ 5 
3e6 § Declare = 

98 USER_FLAGS FIXED BINARY(31) INIT(2), /* Flag indicating ‘‘stickiness desired’ */ 

988 CONTEXT FIXED BINARY(31), 

989 CALL FIXED BINARY(31) /* Holds function value (return status) of called ro 

990 STATUS BIT(1) BASED(ADDR(CALL)), /* Low-order status bit tor called routines */ 

991 FIND_FILE_CALL FIXED BINARY(31) /* Holds function value (return status) of LIBSFIND_ 

99 FIND_FILE_STAT BIT(1) BASED(ADDR(FIND_FILE_CALL)), /* Low-order status bit for LIBSFIND_FILE */ 

99 SPEC_LEN FIXED BINARY(15), /* Input filespec length */ 
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/* Loop control */ 

/* YES => a value for the /INPUT qualifier found */ 


/* Pointer to Input File Block (IFB) */ 
/* Pointer to IFB_TABLE */ 


BASED (IFB_TAB_PTR) Input File Block (IFB) Table */ 
(1:MAX_INP_FICES+15 CHARCIFBSK_SIZE); A single IFB */ 


CHAR(DEFSL_REC) BASED(DEFSA_REC); String for default recording file spec */ 


SS 


2 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
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04 ; 
ton IF irene VOL = NULL() /* If no volatile IFB table, */ 
4009 ALLOCATE IFB_TABLE; /* then get one */ | 
4010 IFB_TAB VOL = IFB TAB_PTR; /* set up a ptr to it */ 
4011 dO T = T TO MAX RP_FTLES +1; /* clear entire */ 
t01¢ UNSPEC(AN_IFB(IT) ="'0'B; /* array to */ | H 
401 ND; /* zeroes */ 
is oe eat 
4016 ELSE IFB_TAB_PTR = IFB_TAB_VOL; /* Otherwise, simply point to existing one */ | ; 
401 /* 
to19 /* NOTE == at this point, the volatile pointer (IFB_TAB_VOL) and the base > 
3 9 ~ pointer (IFB_TAB_PTR) beth point to the IFB_TABLE in use. 2 
40 § M->MRBSB_INP_FILES = 0; /* Start off loop with no input files */ 
40 VALUE_FOOND = YES; /* ... and assume a qualifier value (file spec) found */ 
4024 CALL = SS$_NORMAL; /* Init main ‘908 status */ | 
she? I = 1; /* Init input file counter */ 5 
$$ ; eae = 0; /* init CONTEXT */ | ; 
' /* NOTE -- What follows are two loops - the outer loop does CLISGET_VALUE calls, and the inner loop does 5 
: /* LIBSFIND FILE calls. The CLISGET_VALUE Lone is controlled by STATUS, which is the low bit of CALL, a) 5 
: /* also by QJALUE_FOUND. CALL will always be $S$_NORMAL unless the LIBSFIND_FILE loop runs into trouble. 5 
A CALL is what 1s ultimately returned by this procedure. 3 
‘ | 
DO WHILE(STATUS & VALUE_FOUND); /* Begin CLISGET_VALUE loop */ 6 
FIND FILE CALL = SS$_NORMAL; /* init FIND_FILE status */ 6 
DYN_SPEC.T = DSCSK_DTYPE_T; /* Init str. descr. type */ 6 
DYN_SPEC.C = DSCSK_CLASS_D; /* prrents class */ 6 
IF "CLISGET_VALUE (GUALSL_INP,DYN_SPEC) /* File spec specified ? */ 6 
THEN DO; /* no filespec specified with qualifier */ 6 
IF M->MRBSB_INP_FILES = 0 /* If first time around */ 6 
THEN CALL LIBSSTOPY DXDX(DEFSL_REC,DYN_SPEC); /* use default filespec */ 6 
pice VALUE_FOUND = RO; /* else indicate no more filespecs to skip LIBSFIND_FILE loo g 
DO WHILE(STATUS & FIND FILE_STAT & VALUE_FOUND); /* Begin LIBSFIND_FILE loop */ 6 
IFBPTR = ADDR(AN_IFB(1)); /* Address an IFB */ 6 
heh lt = NULL() /* If not pointing to a file-spec yet, */ e 
ALLOCATE PARSED_SPEC; /* allocate space for result */ 6 
INPUT = PARSED SPEC_PTR; /* set up a ptr to it */ 6 
PARSED_SPEC.T = DSCSR_DTYPE_T; /* str. descr. type */ 6 
PARSED_SPEC.C = DSCSK_CLASS_D; /* dynamic class */ 6 
PARSED_SPEC.A = NULL(J; /* make sure length, */ 6 
PARSES SPEC. = 0; /* and address are 6 */ ¢ 
ELSE PARSED_SPEC_PTR = IFBSA_INPUT; /* Otherwise, simply point to existing one */ 
FIND_FILE_CALL=LTBSFIND_FILETDYN_SPEC,PARSED_SPEC, CONTEXT DEFSL_REC,,.U ER_FLAGS); /* Get the next full file s | 
IF FIND_FILE_STAT /* Did we get another valid filespec? */ | 
THEN” DO; | 


= M->MRBSB_INP_FILES + 1; /* Yes == count it */ 
ES /* If we have exceeded the max. allowed # of input f 
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CALL MON_ERR(MNRS ne /* then log the error */ 
CALL = MARS_TOOMNYFE IL /* set bad status to end both inner and outer loops | 
END Elst fejeis /*,..else increment file count and continue the loop 
END; ; /* end of LIBSFIND_FILE loop */ 
IF to pate. STAT © FIND_FILE_CALL “= RMSS_NMF) ll "“no-more-files’” is the ng valid error from LIB$ 
CALL MON _ERR(MNR$ OPENIN,FIND_FILE_CALL,PARSED_SPEC); im log error */ 
sul = MARS_OPENIA; /* set bad status to end both the inner and outer lo 
; /* End of CLISGET_VALUE loop */ 
vod TT LIBSFIND_FILE_END(CONTEXT); /* wipe out context of prev °LIGSFIND. FILE calls */ 
IFB_TAB_SWAP = YES; /* Ind to SET_CMD a ptr swap is necessary */ 
M->ARBSK INPUT = 1fB_T /* Store ptr fo IFB table */ 
IF M->MRB$B_INP_ FILES” > ~s Wien M->MRBSV_MFSUM = YES; /* If more than 1 file spec, indicate multi-file sum 
RETURN (CALL); /* Return to caller */ 


END BUILD_IFB_TABLE; 
END GET_QUALIFIERS; 


7 
| 
| 
any other status means trouble (such as file n 
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GET_CLASSES: Procedure (AT_LEAST_ONE_CLASS) Returns(Fixed Binary(31)); 


a 


/eee 

/e 

. FUNCTIONAL DESCRIPTION: 

GET_CLASSES 

/* Communicate with CLE to get class_name keywords; then use keywords as 
/* a to LOOKUP_KEY and get back class numbers. Ultimate output is 

/* MRBSO_CLASSBITS, a bit string for which each bit number corresponds 
/* to class number. If a lookup error is found, bad status is returned 
ao to the issuer. 


/* 
/ IMPLICIT INPUTS: 
e 


/* TBS 

/* 

/* OUTPUTS: 

/* 

/* TBS 

/t 

fe IMPLICIT OUTPUTS: 
* 

/* TBS 

/t 

. ROUTINE VALUE: 

/* TBS 

/* 

oe SIDE EFFECTS: 
w 

/* TBS 

/t 

/*/ 


/* INPUTS: 
/* TBS 
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/* 

jt ' A ee Tee we Ss SRT Ee Fe ee Be Se SP eS oe eee ee aweaneeand 

/* ‘ ' 

/* ‘ LOCAL STORAGE : 

/* ' ! 

/* ' Seen SS BSH Bre wena mroea ee = = CST BP STO NSE TE DOB TDBMoO DH TM BEDE NMeAr Ds BF BwrevwresnewrwesanDeeeaae sane + 

/*/ 

Declare 

AT_LEAST_ONE_CLASS BIT(1) niet /* YES => user requested at least one class */ 

A FIXED BINARY ( {) /* Holds function value (return status) of called ro 
STATUS BIT(1) BASED(ADDR(CALL)), /* Low-order status bit “or called routines */ 
CLASS_KEY FIXED BINARY(31) STATIC, /* Class keyword number */ 

/* Note -- must be STATIC. to get error msg */ 

TEMP FIXED BINARY(31); /* Scratch “register’’ */ 
ZREPLACE NOT_SUCCESSFUL BY '0'B; /* Failing severity code */ 
ZREPLACE CLASS. TOK_SIZE BY 20; /* Size of token for class-name */ 
ZREPLACE OR_O BY "0111's; /* OR Boolean operation */ 
/* 
/t ' (en Se ae eS Ue ee Ee ey et ee om esata wo ewr on eae e nr nee nen eomones ewe eee Coma ee no sa wen aan aes oo 
/* ! ! 
a EXTERNAL REFERENCES } 
/* i Serer eceeoccace Seeerereeroer eee eee ree e enw eww enw ecco weece soa een er eocsr ew neers e eee ese nese + 
/*/ 
ZINCLUDE MONDEF ; /* Monitor utility structure definitions */ 
Declare ‘ 
CLISGET_VALUE eeraetaires /* CLE routine to get qualifier values */ 
LIBSLOOKUP_KEY EXTERNAL ENTRY (ANY, ANY, FIXED BINARY(31)) /* RTL rtn to look up class-names in a table */ 
MON_ERR ENTRY (ANY VALUE, ANY, ANY) OPTIONS(VARIABLE); /* MONITOR MACRO=32 routine to log synchronous error 
Declare 

FIXED BINARY(7) /* Loop control */ 
MAX_CLASS_NO FIXED BINARY (315 GLOBALREF VALUE, /* Maximum defined class number */ 
ALL—CLSNO™ FIXED BINARY(351) GLOBALREF VALUE, /* ALL class Pseudo class number */ ; 
ALL sci ASS FOUND BIT(1) /* Flag to indicate ALL class found on command Line 
MNRS_INVCCSNM FIXED BINARY (31) GLOBALREE VALUE, /* Error message code */ 
NOR RAR FIXED BINARY(31) on OBAL LREF. /* MONITOR normal return stetus e/ 
CDBPTR POINTER GLOBALREF, /* Pointer to CDB (Class Doser cigter Block) */ 
C POINTER DEFINED (COBPTR). /* Shorthand s none | for C 
MRBPTR POINTER /* Pointer to M nitor y vest Block) */ 
POINTER DEF INED(MRBPTR) , /* Short-hand synonym for MRBPT 
QUALPTR POINTER GLOBALREF ; /* Pointer to Qualifier Looapiaaaed Block */ 


Declare 
1 en: GLOBAL RGF. /* Table of CDB's */ 
CDBLOCK (0:127) CHAR(CDBSK_SIZE); 


Declare 


<2 
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CLASSTABLE 


Declare 
REQUEST_CLASS_ 
REQUEST_CLASS 
Declare 
01 CLASS_ 

02 L 

85 

02 S$ 
CLASS_VAL.L = 


CLASS_ “VALIA = 


REQUEST CLASS 
ALL_CLASS_F 


FOU = NO; 
dO OuILECCLISceT. VALUE (QUAL SL _ Spe CLASS -VAL)); 


CHAR (1) GLOBALREF ; 
MASK ° T(MAX_ CLASS _NO+1) 
VEC :MAX_CLASS_NO) B 


FIXED B 

POINTER 

CHAR(CL 
LENGTH(CLASS_VAL.S); 
ADDR(CLASS_VAL. $); 
RASK = ‘0'B; 


INDEX(CLA 


INARY(31), 
ASS_TOK_SIZE+1); 


VAL. 
IF CLKSs -VAL.L < 0 THEN CCASS_VAL.L = 
IF * AT” yea KEY(CLASS_VAL,.CLASSTABLE,CLASS_KEY) /* 


CALL MON ERR(MNRS INVCLSNM, ,CLASS_ VAL); 


RETURN(MARS_INVCLSNM) ; 


EN 
ia VAL.L 


D; 
= CLASS 4 eae + 


CLASS sey = ALL_C 


ALL_CLASS_FOUND = YES; 
RDARESV CLASS = 


1; 


END; 
ELSE REQUEST CLASS _VEC(CLASS_KEY) 
CDBPTR = ADDR(CDBLOCK(TLASS_KEY)); 
IF C->CDBSV_DISABLE 
ee REQUEST CLASS_VEC(CLASS_KEY) 


CALL_= = GET_CLASS_QUALS(CLASS_KEY) /* 
ce? = NOT_SUCCESSFUL TREN RETURN (CALL); 


IF NIMEN DO: CLASS_MASK,'1°B) “= 0 


1 A 
THEN 


LEAST _ONE_CLASS = YES; 
LL_CCASS“FOUND = NO 
R->MRBSV_ALL_CLASS = 


NO; 
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/* Table of chess names & numbers (dummy) */ 
/* Note == CLASSTABLE is declared here simply */ 
/* $0 its address can be referenced below */ 


uested chseers have bits on */ 


1f«1) DEF INED REQUEST CLASS_M 


ias for REQUEST. CLASS_MASK, but bit-addressable */ 


ptring descr for value of CLASS_NAME qualifier */ 
Note agi gust be STATIC to get IRVCLSNM msg */ 


String */ 


Init Length longword of descr */ 
Init address longword of descr */ 


Turn off all class bits initially 

Assume we won't find ALL aoauaetien on this command Lin 
,oee once for each requested class */ 

Now strip off trailing blanks */ 


® 
“cLAss. TOK_SIZE; /* If too long, replace with max token size */ 


YES; 


NO; 


/* 
/* 
/* 
/t 
/* 


/t 
/t 
/* 
/t 


Get class keyword number */ 


Log error if bad class name */ 
ee. and return with status */ 


Restore string len for next loop */ 
f all classes */ 


inidicate we found ALL on this command line */ 
indicate its ALL class*/ 
Loop once for each possible class */ 
Turn on bit for this class «/ 
CDB addressabilit 


DB BLO * Get 
IFec->coBsv. DISABLE THEN "rea -CLASS “vet = NO; /* If this bs Ps disabled, then ignore it */ 


Turn on bit for this class */ 

Get CDB addressability ~ 

If this class disabled, 
then ignore it */ 

Otherwise, */ 

Process class qualifiers for this class */ 
/* ... and check status */ 


If any classes specified, 


indicate got at least one */ 
if we didn't find the ALL pseudo-class */ 
---Make sure the ALL class flag is oy (this logic is n 


<z 


ee Se ee ee ee 8s le, 
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004 : /* for defaulting to work correctly in interactive mode) */ 
005 aaa CLASSBITS = REQUEST_CLASS_MASK; /* ... move selected bits */ 

nihd ELSE DO; /* No classes specified, use MRBSO_CLASSBITS */ 

5008 IF INDEX CE >ARBSO _CLASSBITS,'1°B) = 0 /* If no classes specified there, */ 

2098 THEN AT_LEAST_ONE_CLASS = NO; /x then indicate so */ 

2010 pstest AT-LEAST-ONE-CLASS = YES; /* else indicate got one or more */ 

501 " 
S018 | RETURN(NORMAL) ; /* Return to caller */ 
5015 1 


<% 
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i 
018 1 GET_CLASS_QUALS: Procedure (CLSNO) Returns (fixed binary(31)); { 
2018 Declare i 
5019 CLISPRESENT ENTRYCANY) RETURNS (BIT(1)) /* CLE routine to determine presence of quels «/ i 
2020 CLISGET_VALUE ENTRY(ANY, ANY, FIXED BINARY(15)) /* CLE routine to get qualifier values * j 
021 RETURNS (BIT(1)5; j 
50 ¢ r 
50 Decla 7 
5024 MNR$_QUALINV FIXED BINARY(31) GLOBALREF VALUE, /* Error message code */ { 
5025 MNRS_SQUALERR FIXED BINARY(31) GLOBALREF VALUE, /* Error message code */ i 
20 § MNRS$_PDQUALERR FIXED BINARY(31) GLOBALREF VALUE, /* Error message code */ i 
S MNRS_INVITEMNM FIXED BINARY(31) GLOBALREF VALUE; /* Error message code */ i 
5099 Declare i 
2p § MODES_CLSNO FIXED BINARY(31) GLOBALREF VALUE; /* MODES class number */ { 
e038 2 Declare 
2082 2 TEMP_CDBPTR POINTER ; /* tmp pointer for ALL class qualifier loop*/ 
5035 Declare 
5036 1 CLASSTABLE GLOBALREF /* Table of class names & numbers */ 
5037 2 VECTOR CT FIXED BINARY(31), /* Count of longwords following in table */ 
5038 2 2 CL_DESTR (0:127) 
5039 2 ; CL_PTR POINTER, /* Pointer to class cstring */ 
ik § CL_NO FIXED BINARY(31); /* Class number */ 
2008 2 Declare 
504 2 1 STAT_TABLE GLOBALREF /* Table of pointers to str descrs for statistic qua 
5044 2 2 STAT_DESC (O:STATS-1) POINTER; 
5045 2 
5046 2 Declare 
5047 2 1 PROCD_TABLE  GLOBALREF /* Table of ptrs to str descrs for PROCESSES display 
ence § 2 PROTD_DESC (0:PROCDISPS=1) POINTER; 
5050 2 Declare 
5051 2 I FIXED BINARY(7), /* Loop control */ 
5052 2 J FIXED BINARY(7), /* Loop control */ 
5053 2 QUAL _FOUND BIT (1) AL Lene /* NO => haven't seen a qualifier yet */ 
50542 CLSNO FIXED BINARY(31), /* Class number */ 
5055 2 QD CHAR(8) BASED, /* Dummy yeh} tier otetng descr */ 
apeo 2 CLSTR CHAR(1) BASED; /* Dummy first char of class cstring */ 
5058 ZREPLACE ITEM_TOK_SIZE BY 25; /* Size of token for item name */ 
5060 Declare 
061 REQUEST_ITEM_MASK B1T(16) /* Requested items have bits on */ 
2062 2 REQUEST ITEM~VEC (0:15) BIT(1) DEFINED(REQUEST_ITEM_MASK) ; 
Oee , & /* Alias for REQUEST_ITEM_MASK, but bit-addressable 
5065 3 Declare 
066 01 ITEM_VAL STATIC, /* String descr for value of /ITEM gyi stier «/ 
067: 2 /* Note == must be STATIC to get INVITEMNM msg */ 
068 L FIXED BINARY(31), /* Length */ 
ya A, POINTER /« Address */ 
970 S CHAR(ITEM_TOK_SIZE); /* String */ 
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/* hae qth of item value string */ 

/* Dummy f P  longword q tem lookup table */ 
/* Item fine number */ 

/* Note -=- must be STATIC to get error msg */ 
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re for the 
CUR, AVE 

feed (PROCESS 

and return. 


QUAL_FOUND = NO; 
DO I = 0 TO STATS-1; 
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NOTE == CDBPIR (and its synonym C) has been set up by caller. 


oregenee | of each of the statistics qualifiers 
MIN, MAX). If specified for the non-standard 
ES), or if more than one specified, log error 


/* Indicate no statistics qualifiers found yet */ 
/* Loop for each stat qual for this class */ 


IF CLISPRESENT(STAT DESC(1)=>0QD) /* If this stat qual is present, */ 
THEN IF F C=>CDBSV_ STD = NO /* check if none stenderé class */ 
THEN DO; /* Non-STD - t quals not allowed */ 
CALL MO N_ERR(MNRS$ QUALINV, ,STAT_ DESC(1)=>QD,CL “PIRCCLENO)->CLSTR), /* Log an error */ 
AL acetal QUALIRV); /* ... and return with status * 
ELSE IF QUAL | FOUND = NO /* STD class -- If we haven't seen a qual yet, */ 
QUAL_FOUND = YES; /« Indicate we found one this time */ 
IF CCSNO = ALL tL SNO /* If ALL classes */ 
THEN D i To" MAX_CLASS_NO; /* Loop once for each possible class */ 
ip E->cbesv. STD™= YES” /* If this is a standard class */ 
TEMP_ COBPTR = ADDR(CDBLOCK(J)); /* ... Get COB addressability */ 
TEMP_COBPTR=>CDB$B_ST = I; /* ... and move in the requested s 
renee “CDBPTR=>CDBSV_ “EXPLIC’ = YES; /* ... also indicate explicit ae 
END; /* End ALL classes logic */ 
C->CDBSB_ $1 = 1; /* Move in the roaune ed stat code */ 
ea EXPLIC = YES; /* Indicate a class qualifier an fin Oe specified * 
ELSE DO; /* We've seen a stat qual for this class already */ 
CALL MON _ERR(MNRS SQUALERR, ,CL_ PTR(CLSNO)=>CLSTR); /* Log an error */ 
RETURN CARS. SQUALERR); /* Return with status */ 


END; 


> 


| 


: 
i 
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7 

1 : /* 

1 g \ /* Check for the presence of each of the gp ay display qualifiers f 
124 | /* (TOPCPU, TOPFAULT, TOPDIO, TCPB1Q) . If specified for a standard 7 
; é ad class, or if more than one specified, log error and return. 7 

‘ | 7 
1 | 
128 QUAL_FOUND = NO; /* Indicate no PROCESSES qualifiers found yet */ | ’ 
$i ° DO 1 = 0 TO PROCDISPS-1; /* Loop for each PROCESSES qualifier */ 

i g IF PROCD_DESC(1) “= NULL() & /* If tots $ prog qual is defined ... */ 

1 CLISPRESENT (PROCD_ DESC(1)=->a@D) £@ ou is present, */ 
1 N IF C=>CDB$V"STD = YES /* Tay Ve Page sy ob class */ 
135 THEN DO; /* STD class == proc quals not allowed */ 
1 4 CALL MON ERR(MNRS QUALINV,,PROCD_DESC(1)->QD,CL “PTR(CLSNO) =>CL TR); /* Log an error */ | 

2 ? RETURN CHARS. QUALIRV); "/* ... and return with status " 

5139 3 ELSE IF QuaL FOUND = NO /* Non-STD class -= If we haven't seen a qual yet, *| 

5141 4 QUAL Ag ® = YES; /* Indicate we found one this time */ | 

aieg ° 5.21 eaee = |; /* ... and move in the requested display type */ | 

5144 3 ELSE BO: /* We've seen a proc qual for this class already */ | 

5145 & L MON_ERR(MNRS PDQUALERR, ,CL _PIR(CLSNOD=>CLETR): /* Log an error */ 

5146 RETURNCMARS _PDQUACERR) ; /* Return with status */ 

5147 4 END; 

5148 3 

5149 2 


END; 
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/* Check for the Boerne of the /ITEM Giese qualifier. if present, 
/* call CLISGET_VALUE in Hy am to obtain the requested item keywords. 
/* Then call LIBSLOO orur ek et numerical bit values for the keywords 
oes and set the bits (in “Ebxsu° IBITS) corresponding to the bit values. 
IF el eto ITEM) /* If /ITEM qual is present, */ 
THEN IF C=>CDBSV_ROMOG = NO /* Check if homo eneous class */ 
THEN DO> /* Not homo M qual not allowed */ 
CALL MON _ERR(MNRS enn. ITEM, CL_PTR(CLSNO)=>CLS R); AM oon an error */ 
RETURN CHARS QUALIRV) /* ... and return with status */ 
ELSE D /* Homog class == loop picking up items */ 
Tren VAL.L = LENGTH(ITEM_VAL. $); /* Init Length longword of descr */ 
ITEM-VAL.A = ADDR(IT EM yA.) /* Init address longword of descr */ 
REQUEST_ITEM_MASK = ‘O"B /* Turn off all item bits initially */ 


dO WHILE CCLISSET VALUE (QUALSL_ITEM,ITEM_VAL, ~~ _LEN)); /* Loop once for each requested item */ 
ITEM_VAL.L = IVAL_LEN; *"Get actual string length */ 


> A a ym KEYCITEM_VAL,C=>CDBSA_ waits ILOOKTAB=>I1TEM_LTAB, ITER. KEY) 
THEN “item keyword number */ 
CALL MON_ERR(MNRS INVITEMNM, , 1TEM_ VAL): /* Log error if bad item name */ 
peTben ne INVITEMNM) ; /* ... and return with status */ 


ELSE /* Found value for item keyword */ 
ReGuEst ITEM_VECC(ITEM KEY) = YES; /* Turn on bit for this item */ 
ITEM, C.L ="LENGTH(ITEM_VAL.S); /* Restore string len for next loop */ 
END; /* End of DO WHILE loop */ 


IF INDEX(REQUEST_ITEM_MASK,'1'B) “= 0 If any items specified, 
THEN C=->CDBSA_ CDX=>CDx$w_ IBITS = REQUEST_ item, MASK; /* ... move them a the CDX */ 
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/* The ee hen pe Begin-End qyour sets the COBSV_PERCENT and CDB$V_CPU bits to 
/* the proper states, depending on the specifications of the /CNOJPERCENT and 
/* /CNOJCPU qualifiers. 
/e/ 
BEGIN; 
Declare 
CLISPRESENT eT ERNAI ENTRY(ANY) RETURNS(FIXED BINARY(31)), /* CLE routine to determine presence of qualifiers * 
CLIS_LOCNEG FIXED BINARY (31) GLOBALREF VALUE; /* CLISPRESENT return status code for ‘‘explicitly ne 
/* 
all Check for presence of /CNOJPERCENT qualifier 
CALL = CLISPRESENT(QUALSL_PCENT); /* Get ht cone indicators for /PERCENT */ 
IF STATUS /* If present, * 
THEN IF ant oy UNIFORM /* If uniform (/PERCENT allowed for unif only) */ 
C-SCDBSV PERCENT = YES; /* ... then indicate percent stats */ 
CA i MON_ERR(MNRS$ QUALINV, ,QUALSL_ PCENT,CL_PTR(CLSNO)=>CLSTR); /* ... otherwise, log an error */ 
4 ata -QUALIRV); 7* ... and return with status */ 
ELSE IF CALL = etlis. LOCNEG THEN C=>CDBSV_PERCENT = NO; /* IF /PERCENT explicitly negated, turn it off */ 
/t 
aa Now check for presence of /CNOJCPU qualifier 
CALL = CLISPRESENT(QUALSL_CPU); /* Get "‘present’’ indicators for /CPU */ 
IF STATUS /* If present * 
THEN IF CLSNO = MODES _CLSNO /* If MODES class 
THEN N C“>CDBSV_ CPU = YES; jt ae indicate tbu-specitic display */ 
* Otherwise, /CPU is not allowed */ 
CALL MON _ERR(MNRS$ QUALINV, ,QUALSL_CPU,CL _PTR(CLSNO)~ =>CLSTRS ; /* Log an error */ 
RETURNS QUALINAY); 7* ... and return with status */ 
ELSE IF CALL = etlis. LOCNEG THEN C->CDB$V_CPU = NO; /* IF /CPU explicitly negated, turn it off */ 
END; /* Terminate Begin-End group */ 
RE TURN(NORMAL) ; 


END GET_CLASS_QUALS; 
END GET_CLASSES; 
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MONITOR_CMD: Procedure Returns (Fixed Binary(31)); /* Routine to execute a MONITOR subcommand */ 

/eee 

/* 

FUNCTIONAL DESCRIPTION: 
t 

o MONI TOR_CMD 
® 

/* TBS 

/* 

/* INPUTS: 

/* 

/* TBS 

/e 

IMPLICIT INPUTS: 
® 

/* TBS 

/* 

/* OUTPUTS: 

/* 

/* TBs 

/* 

IMPLICIT OUTPUTS: 
t& 

/* TBS 

/e 

. ROUTINE VALUE: 
* 

/* TBS 

/e 

/* SIDE EFFECTS: 

fm 

/* TBS 

/t 

fe/ 
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/* 
/e ' a a a SSS ERPEOnDTeB TZ CHE De steoeewn none ewsw Bene sec eaeanr nose anwre we owoe st =a re w wee er ono + 
/* : ' 
/* LOCAL STORAGE 
/* ! ! 
/* ' eee eS SEED nmr een wnewrooerweeewroenenznaerse eee ew en Swe we Cee ane ee rer n we nr See we os BO Deeranmasreo ww as > 
/*/ 
Declare 
CALL FIXED BINARY(31) /* Holds function value (return status) of called ro 
STATUS BIT(1) BASED(ADDR(CALL)), /* Low-order status bit for called routines */ 
Al_LEAST_ONE_CLASS BIT(1) ALIGNED, /* YES => user requested at least one class */ 
IFBPTR POINTER; /* Pointer to Input File Block (IFB) */ 
ZREPLACE NOT_SUCCESSFUL BY ‘O'B; /* Failing severity code */ 
fe 
/t ' ces ee sp um ce ee ee eee me TeTe BOB De eB De eOct ow EO eee eegde ao Be VT ew eeewrwernosocesne ze Zt ae wee ewer an eae oa 
/* ! ! 
/ EXTERNAL REFERENCES 
om 
/e i ee a a fe see ee ew Bee ew BS ew Deere wee em ee em ee ee aoe ee + 
/e/ 
ZINCLUDE MONDEF ; /* Monitor utility structure definitions */ 
Declare 
MON_ERR ENTRY (ANY VALUE, ANY, ANY) OPTIONS(VARIABLE), /* MONITOR MACRO-32 routine to log synchronous error 
MOVE_CLASS_QUALS ENTRY (FIXED BINARY(?)) /* MACRO-32 routine to move class ... * 
RETURNS(FIXED BINARY(31)), /* ... Qualifier values for all classes */ 
GET_CLASSES ENTRY (BIT(1) ALIGNED) RETURNS(FIXED BINARY(31)), /* Routine to get info on all classes for this req 
GET_ QUALIFIERS ENTRY RETURNS(FIXED BINARY(31)), /* Routine to store qualifier info for this request 
EXECUTE REQUEST ENTRY RETURNS(FIXED BINARY(31)), /* Routine to execute a single MONITOR request */ 
MFSUM_REQUEST ENTRY RETURNS(FIXED BINARY(31)); /* Routine to execute a single MONITOR request with 
Declare 
MNR$_NOCLASSES FIXED BINARY(31) GLOBALREF VALUE, /* Message code */ 
CUR_TO_ACT FIXED Dear tets GLOBALREF VALUE, /* Code value for MOVE_CLASS_QUALS rtn */ 
ALL_TO_ACT FIXED BINARY(31) GLOBALREF VALUE, /* Code value for MOVE_CLASS_QUALS rtn */ 
MRBPTR POINTER GLOBALREF /* Pointer to MRB (Monitor Request Block) */ 
“ POINTER DEF INED(MRBPTR) , /* Short-hand synonym for MRBPTR */ 
CURR_MRBPTR POINTER GLOBALREF, /* Pointer to ‘‘current’’ MRB (Monitor Request Block) 
ACT_ARBPTR POINTER GLOBALREF /* Pointer to “‘active’’ MRB (Monitor Request Block) * 
FIRST MON CMD BIT(1) ALIGNED GLOBALREF /* YES => first MONITOR (DCL-level) cmd executing */ 
QUAL _SPECTFIED BIT(1) ALIGNED GLOBALREF, /* YES => at least 1 qualifier explicitly specified 
PROMPT BIT(1) ALIGNED GLOBALREF ; /* YES => prompt user for another subcommand */ 
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: 


] 
| 
6088 1 CALL_= MOVE_CLASS QUALS(CUR_TO_ACT); /* Move current class qual values to active */ | 
6089 1 IF STATUS = NOT_SOCCESSFUL THER RETURN (CALL); /* Return if bad status */ | 
6090 1 ACT _MRBPTR=>MRB = CURR_MRBPTR=>MRB; /* Move current MRB to active MRB */ 
6091 1 MRBPTR = ACT _MRBPTR; /* Make all MRB refs refer to ‘‘active’’ MRB */ | 
$085 1 CALL_= GET CCASSES(AT LEAST_ONE_CLASS); /* Get info on requested classes */ 
609 1 IF STATUS = NOT SUCCESSFUL THEN-RETURN (CALL); /* Return if bad status */ | 
6094 1 CALL = GET_QUALTFIERS(); /* Get the MONITOR command qualifiers */ 
6095 : IF STATUS = NOT_SUCCESSFUL THEN RETURN (CALL); /* Return if bad status */ 
609 1 IF AT_LEAST_ONE_CLASS /* If at least one class requested, */ 
one 1 TREN 
6 1 IF M->MRBSV_MF SUM /* If this is a multi-file summary request, */ 
6100 1 THEN CACL = MFSUM_REQUEST(); /* Call special REQUEST routine for m.f. summary */ 
6101 1 ELSE DO; /* Regular MONITOR request */ 
o10¢ IF eres no “= NULL() /* If it's a playback, */ 
6104 IFBPTR = M->MRBSA_INPUT; /* Make MRBSA_INPUT point to a */ 
6105 R~>MRBSA_INPUT = IFBSA_INPUT; /* ... file descr instead of an IFB */ 
6107.2 
by 2 IF aren “= NULL() /* If summary requested, */ 
6110 CALL = MOVE _CLASS QUALS(ALL_TO_ACT); /* Force ALL stat value to active */ 
eitg — ="NOT_SOCCESSFUL THEN RETURN (CALL); /* Return if bad status */ 
611 2 7 
eile § paul. = EXECUTE_REQUEST(); /* Execute the MONITOR request */ 
6116 1 ELSE ’ /* Otherwise, no classes requested, */ 
6117 1 IF FIRST_MON CMD = YES & QUAL_SPECIFIED = NO /* Check for bare MONITOR cmd at DCL */ 
e118 : THEN PROMPT = YES; /* If user wants to go interactive */ 
ois} 2 CALL MON_ERR(MNR$_NOCLASSES); /* This is an error ... log it */ 
6121 é RETURN (AARS _NOCLASSES) ; /* ... and return */ 
e138 i RETURN (CALL); ; /* Return with status code */ 
6125.1 END MONITOR_CMD; 
6126 


so 

ELSE 00; /* MONITOR cmd issued wi hout classes */ 
| 

| 

| 


: 


—_ 2 


VFWN—O0OoONn 


PPP PPFD DPD. DOP. D-DD D. D-DD DDD. PDP 
| a ek a et ee 
VFWN—OO 


a bs as — 2 4 a as a a a tt 


FAQ MAMAMAMAMIMANN IA 
MO OONOUE WN OO 0O NO 


a Oe a ed dd od od wd dd dd 


stv. CPO: Procedure Returns (Fixed Binary(31)); 

{t+ 

/* 

oe FUNCTIONA! DESCRIPTION: 
@ 

/* SeT_CMD 

/t 

/* TBS 

/* 

/* INPUTS: 

/* 

/* TBS 

/t 

a IMPLICIT INPUTS: 
e 

/* TBS 

/* 

/* OUTPUTS: 

/* 

i TBS 

jt 

Ss IMPLICIT OUTPUTS: 
e 

/* TBS 

/* 

. ROUTINE VALUE: 
« 

Od TBS 

/e 

/* SIDE EFFECTS: 

/* 

/* TBS 

/* 

fel 
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/* Routine to execute a SET subcommand */ 
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ZINCLUDE MONDEF ; /* Monitor utility structure definitions */ 
ZREPLACE NOT_SUCCESSFUL BY ‘O'B; /* Failing severity code */ 
/* 
/* ' (= oe om mem ee ee SS 8S OTT we Se BTS SS OTE BHO Te wr Barn nr ome ween wroewenmreva ase eenmenweca = Sewer seem mo $ 
/* ; ! 
. EXTERNAL STORAGE DEFINITIONS 
/* 4 eSeewe wee eae ee eee me ower BP mB ernznereaes ws ee oe = ee Se er om ce ce me eae ew ee oe te Se es et emaannnmat 
// 
Declar 
INP PTR VoL POINTER GLOBALDEF INITCNULL()), /* Pointer to volatile /INPUT file-spec */ 
DIsP PTR_VOL POINTER GLOBALDEF INITCNULL()), /* Pointer to volatile /DISPLAY file-spec */ 
C_PTR yt OINTER GLOBALDEF INITCNULL()), /* Pointer to volatile /RECORD file-spec */ 
SONAL PIR V POINTER GLOBALDEF INITCNULL()), /* Pointer to volatile /SUMMARY file-spec */ 
COMM" PTR ~Vot POINTER GLOBALDEF INITC(NULL()), /* Pointer to volatile /COMMENT string «/ 
1FB_TAB_VOL POINTER GLOBALDEF INITCNULL()); /* Pointer to volatile IFB_TABLE */ 
Declar 
INP_PTR_SWAP BIT(1) ALIGNED GLOBALDEF, /* YES => swap INP_PTR and INP_PTR_PERM */ 
DISP_PTR_SWAP BIT(1) ALIGNED GLOBALDEF, /* YES => swap DISP PTR. vOL and DISP_PTR_PERM */ 
REC_PTR_SwaP BIT(1) ALIGNED GLOBALDEF, /* YES => swap REC_PTR_QOL a A REC_PTR_PERM */ 
SUMA_PTR_SWA BIT(1) ALIGNED GLOBALDEF, /* YES => swap SUMA_PTR_VOL and SUAM_ BTR PERM «/ 
COMM-PTR-SWAP ®BIT(1) ALIGNED GLOBALDEF, /* YES => swap COMM_PTR- VOL = COMM" PTR PERM */ 
IFB_TAB_SWAP BIT(1) ALIGNED GLOBALDEF; /* YES => swap IFB_TAB_VOL and IFB_TAB_PERM */ 
/t 
Jt (emennene were raceme wen rem eco woe oe OOS TeEBerKO S BeEnt sooner mEsvanaeesaeotrseneannawnwrens Sa 
/* ! } 
‘e EXTERNAL REFERENCES 
/t i weewrsneceaneracanecnen = Seaton er een een meee een ete ew ene seen enn ener wee we wee ew ee ene oeas + 
/*/ 
Dec 
MOVE eCLASS _QUALS sep it (FIXED BINARY(7)) /* MACRO-32 routine to move class ... */ 
URNS (FIXED BINARY(31)), /* qualifier values for all classes */ 
GET_CLASSES NERY (BIT(1) ALIGNED) RETURNS(FIXED BINARY(31)), /* Routine to get info on all classes for this req 
GET-QUALIFIERS ENTRY RETURNS(FIXED BINARY(31)); /* Routine to store qual itier info for this request 
Declar 
CUR. To. ACT FIXED pinaavisl? St GLOBALREF VALUE, /* Code value for MOVE_CLASS_QUALS rtn */ 
ACT TO- CUR FIXED BINARY(31) GLOBALREF VALUE, /* Code value for MOVE-CLASS_QUALS rtn */ 
RBPTR™ POINTER GLOBALREF, /* Pointer to MRB (Monitor Request Block) */ 
CURR _MRBPTR POINTER GLOBALREF, /* Pointer to ‘‘current’’ MR nitor Request Block) 
TEMP_MRBPTR POINTER GLOBALREF; /* Pointer to ‘'temp’’ MRB (Monitor Request Block) */ 
/* 
/e ' Seem esronmonme ses ean erenmnrwraewroewcacnwee = ae wee wo SRO DSB SESE SEDenoaDrwrorna worse sree n cet enemas + 
/* ‘ ' 
/* ' LOCAL STORAGE ' 
/* ‘ ! 


e ' wee Se ee Se Oe Sw Ree SPT SMH RH OKC SK DO DEE TODO BE MDH EEE DOME EB Ew E EE Eee + 
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/*/ 
Declare 
INP_PTR_PERM POINTER STATIC INITCNULL()), /* Pointer to permanent /INPUT file-spec */ 
DISP_PTR_PERM POINTER STATIC INITCNULL()), /* Pointer to permanent /DISPLAY file-spec */ 
REC_PTR_ PERM POINTER STATIC INITCNULL()), /* Pointer to permanent /RECORD file-spec */ 
SUMA_PTR_PERM POINTER STATIC INITCNULL()), /* Pointer to permanent /SUMMARY file-spec */ 
COMM_PTR_ PERM POINTER STATIC INITCNULL()), /* Pointer to permanent /COMMENT string «/ 
1FB_TAB_PERM POINTER STATIC INITCNULL()); /* Pointer to permanent IFB_TABLE */ 
Declare 
ALL FIXED BINARY(31) /* Holds function value (return status) of called ro 
STATUS BIT(1) BASED(ADDR(CALL)), /* Low-order status bit for called routines */ 
TEMP POINTER, /* Temporary ‘'scratch"’ area */ 
AT_LEAST_ONE_CLASS BIT(1) ALIGNED; /* YES => user requested at least one class */ 
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INP_PTR_SWAP = NO; 
DISP_PTR SWAP = NO; 
REC BTR SiAP = NO; 


CALL = MOVE CLASS QUALS(CUR_TO_ACT 
IF STATUS ="NOT_SOCCESSFUL THER SE TORN (CALL); 


CALL = GET_CLASSES(AT_LEAST_ONE_CLASS); 
IF STATUS 
THEN 
= TEMP_MRBPTR; 


TEMP 
TEMP_ MRBPTR™= CURR. * MRBPTR; 
CURR_MRBPTR = TEMP; 


IF THEN 00. SWAP = YES 


TEAP = = INP_PTR 
INP_PTR_VOL = INE PTR _PERM; 
INP. “PIR “PERM = TEMP; 


IF go" PTR -SWAP = YES 


TEMP = DISP_PTR 
DISP_PTR_VOL = BSP: PTR_PERM; 
Disp. PTR_PERM = TEMP; 


IF ReeN DO: SWAP = YES 


TEAP = = REC PTR_V 
REC_PTR_VOL = Ree “BTR _PERM; 
REC “PIR “PERM = TEMP; 


IF SUMM_PTR_SWAP = YES 
THEN DO: 
TEMP = SUMM_PTR 
SUMM_PTR_VOL = Suan PTR_PERM; 
SUN PTR -PERM = TEMP; 


IF COMM_PTR_SWAP = YES 
THER DO; 
TEMP = COMM PTR_VOL; 
COMM PTR_VOL = COMM’ PTR_PERM; 
COMA PTR-PERM = TEMP; 
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Ind no swap needed for 2 ptrs to /l 
Ind no swap needed for 2 ptrs to TDISPLAY file-sp 
Ind no swap needed for 2 ptrs to /R 
Ind no swap needed for 2 ptrs to / 
Ind no swap needed for 2 ptrs to /COMMENT string 
Ind no swap needed for r IFB_TABLE */ 
cove ‘current’’ MRB to ‘'temp'’ MRB * 

e all MRB refs refer to ‘‘temp’’ MRB */ 
cere SET qualifiers */ 
Return if bad status os 


Move current class qual values to active */ 
Return if bad status */ 


° 
~~ 
@ 

* 


Get info on requested classes */ 
If successful, */ 


Swap * fag and ... */ 
— > p'' MRB pointers */ 


If pointer swap required, 
Swap volatile and. 


ese permanent 7 INPUT PA fal «/ 
eee pointers */ 


If pointer swap et «/ 

Swap volatile and ... 

ess permanent *DISPLAY Sei ciesed «/ 
eee pointers */ 

If pointer swap pee «/ 

Swap volatile and... 

ees permanent /RECORD deisenes «/ 

ess pointers */ 

If pointer swap required, */ 

Swap volatile and. 

ees permanent FSUMMARY Sikeanes s/ 
ee» pointers */ 

If pointer swap pagers 

Swap volatile and . 


eee permanent 7COMMENT certs «/ 
ees pointers */ 


<2 


———_—_——___-—_-—_—_, 
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Pye8 ; IF aa ae SWAP = YES /* If pointer swap required, * 
706 TEAP = no ue TAB_V /* Swap volatile and... */ 
706 3 1FB_T yor = "TB, ni PERM; /* ... permanent IFB_TABLE */ 
7064 IFB-TAB-PER TEMP /* ... pointers */ 

1p? END; 

7067 CALL_= MOVE_CLASS QUALS(ACT_TO CUR); /* Move active class qual values back to current */ 
ree IF STATUS = NOT_SOCCESSFUL THEN RETURN (CALL); /* Return if bad status */ 
7070 END; 

7071 1 

Ait : RETURN (CALL); /* Return with status code */ 
7074 1 END SET_CMD; 


<= 


707 INIT_CMD: Procedure Returns (Fixed Binary(31)); /* Routine to execute an INITIALIZE subcommand */ 


= FUNCTIONAL DESCRIPTION: 
/* INIT_CMD 
TBS 
INPUTS: 
TBS 
IMPLICIT INPUTS: 
* TBS 
* 
* OUTPUTS: 
® 
* TBS 
* IMPLICIT OUTPUTS: 
t 
/* TBS 
/* 
ROUTINE VALUE: 
w 
/* TBS 
/* 
/* SIDE EFFECTS: 
/* 
/ TBS 
/ 
/ 


el ee ee ee ee ee en ee ee ee ee ee ee ee 
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ig se /* 
71 1 ; 1 /* ' Soe Sener ee snen oan ona eee Sea eer ee em nas Sec oKes are eee eo ees Ome er TD ene en eoneeaoe sean a ee ca 
ate i te OCAL STORAGE 7 
: * ; LOCAL A . 
7116; #1 /* ' ! 
71 1 7 ; 1 /* ' (SS Ge ee eo ee eo ee ee ee ee ee SS Se BO SB SE SDB BrTEeweereeeerewre awe ~ => Ee Oe ewe SS ew we Se SE SD Se ROS SS ES + 
7118 | #1 // 
7119 1 
7120 1 Declare 
at} ! CAL FIXED BINARY(31); /* Holds function value (return status) of called ro 
Ae | 
71246; 1 /* 
71 25 H 1 /* | emo oeeeeeeeceesseescescs eB@esneene nae nner ee ann nec ew en see eon eee ewe eee ee men ecm eee = + 
$8 ; 4 /* ! ' 
Tier i 1 /* : EXTERNAL REFERENCES 
7128 : #1 /* ' ' 
| 71 9 : 1 /t leeeoeecoen ee en en ews OMe ROB enw eSB enrotwmowreacenaannmawe ee eH 
tee ae 
7132 : ZINCLUDE MONDEF ; /* Monitor utility structure definitions */ 
7901 1 Declare 
a4 : DEF _TO_CUR FIXED BINARY(31) GLOBALREF VALUE; /* Code value for MOVE_CLASS_QUALS rtn */ 
7904 1 Declare 
7905 1 MOVE _CLASS_QUALS ENTRY (FIXED BINARY(7)) /* MACRO-32 routine to move class ... */ 
es : RETURNS (FIXED BINARY(31)); /* ... Qualifier values for all classes */ 
7908 1 Declare : 
7909 1 CURR_MRBPTR POINTER GLOBALREF, /* Pointer to ‘‘current’’ MRB (Monitor Request Block) 
ny : DEF _ARBPTR POINTER GLOBALREF ; /* Pointer to ‘‘default’’ MRB (Monitor Request Block) 


rc 
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1 CURR_MRBPTR=>MRB = DEF MRBPTR=>MRB; /* Move default MRB to current MRB */ 

\ CALL = MOVE _CLASS_QUALS(DEF_TO_CUR); /* ... and default class qual values to current */ 
\ RETURN (CALL); /* Return with status code from MOVE_CLASS_QUALS */ 
1 END INIT_CMD; 
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444 , HELP_CMD: Procedure Returns (Fixed Binary(31)); /* Routine to execute a HELP subcommand */ 
Rai} fe 
: cy 
fe § : FUNCTIONAL DESCRIPTION: 
7985 is HELP_CMD 
; ® 
em 
; 
9 | : . INPUTS: 
H © 
re 7 : TBS 
, 
je 4 g : i. IMPLICIT INPUTS: 
7935 is TBS 
H e 
7937 : : . OUTPUTS: 
} ® 
A Ge ee 
: @ 
a a} : : . IMPLICIT OUTPUTS: 
; o 
wii, fem 
; oT 
ree? : : : ROUTINE VALUE: 
; t 
Sip fe 
' . 
7949; 1 /* SIDE EFFECTS: 
7950 ; 1 /* 
7951; #1 /* TBS 
reg . /* 
7953: 1 /e/ 
7954 1 
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1 ZINCLUDE SHLPDEF; /* H tit flag Corynrt tons = 
1 TREPLACE NOT_SUCCESSFUL BY '0'B; /* Failing severi ty code */ 
1 ZREPLACE MON-HELPLIB BY 'MNRHELP’: / Log name for MONITOR subcommand help Library */ 
: ZREPLACE HELP_PARM BY ‘HELP _KEYS'; * Name of parameter for HELP command (rest of Line) 
ee /* 
; 1 /* ' anreesoer ere se oe we a we ee ew aewwrwreren nese Se a a ee ee oa ewe En w ers ee ew we we we = Oe ea ee a ae Ga Ge oe a ee me Sean wee = + 
7 /* ! ' 
; 4 /* ‘ LOCAL STORAGE ! 
ze /* ! ! 
; 1 /* lewececen were noes erene seman anraacn nace Beer enero swe nen namra mare se nan nanwaaaeoane waanrwrome + 
= /e/ 
1 Declare 
1 ALL FIXED BINARY ( /* Holds function value (return status) of called ro 
: STATUS BIT(1) SARE DCADDRCCALL)): /* Low-order status bit for called routines */ 
1 /* 
4 /* |leeeeeeeeseeece esene2ecnronas See eee enon ane erento nraenr ee wee nrnne se eeenw oe tener aseeaaeece as + 
8009 1 /* ! ' 
1 1 /* ! EXTERNAL REFERENCES 
8011 1 /* ' ' 
Bog 1 /* lesececoen Sa we eae nner eceanamrancanraeeacas weme mee = i ee + 
801 1 /*/ 
8014 1 
8015 1 Declare 
Bots : CLISGET_VALUE re. StanTi}5. ANY) /* CLE routine to get qualifier values */ 
8018 1 LBRSOUTPUT_HELP aorta Libba LUE, ANY, ANY, CHAR(*), FIXED BINARY(31), ENTRY VALUE) 
8019 1 a S VARIABLE) RETURNS (FIXED BINARY(31)), /* Rtn to output help info with prompting */ 
8020 1 LIBSPUT_OUTPUT ENTRY /* Routine to write a Line to terminal * 
8021 1 CIBSGET~ INPUT ENTRY /* Routine to read terminal */ 
a0s8 1 MON_E RR™ ENTRY. (ANY VALUE, ANY, ANY) OPTIGNS(VARIABLE), 
802 1 /* Routine to log synchronous errors */ 
SoSe ; MNRS$_HELPERR FIXED BINARY(31) GLOBALREF VALUE; /* Error message code */ 
8026 1 Declare 
8027 1 NORMAL FIXED BINARY(31) GLOBALREF, /* MONITOR normal return status */ 
h34 ! CURR_ERRCODE FIXED BINARY(31) GLOBALREF ; /* MONITOR error status code currently expected */ 
8030 1 Declare 
8031 1 1 DYN_STRING GLOBALREF, /* pynente string descriptor */ 
oO3¢ 1 L FIXED BINARY(15), /* Length */ 
803 1 TC CHAR(2), /* Type and Class */ 
8034 1 A POINTER; /* Address */ 
8035 1 
8036 1 
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L MON_ERR(MNR$ ss CALL); - Log the error ... 


CAL «/ 
RETURNCHRAS HELPERR) * ... and return with status */ 


RETURN (NORMAL); /* Return with success code */ 
END HELP_CMD; 


1 

1 CURR_ERRCODE = MNR$ HELPERR; /* Set MONITOR — jor Bd: neg Ay errors */ 

1 IF ““CLISGET_ VALUE (RELP_PARM,DYN_STRING) /* Get all ncomman verb */ 
: 4 /* ... the hip t ine to CBRSOUTPUT _HELP s/ 

! THEN DYN_STRING.L = 0; /* If rest "ot Line null, make string full */ 

1 CALL = LBRSOUTPUT_HELP(LIBSPUT_OUTPUT, ,DYN_STRING,MON_H 

1 HLPSM_PROMPT+HLPSM—PROC Pes eRLP SM: GROUBOML PSH SYSTEM+HLPS$M_HELP, 

} LIBSGET_INPUT); * CaLL standard AELP output routine */ 

1 IF STATUS = NOT SUCCESSFUL /* If failed, 

; THEN D 

2 

1 

1 

1 

1 
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4 7 , EXIT_CMD: Procedure Returns (Fixed Binary(31)); /* Routine to execute an EXIT subcommand */ 

059; 1 [tee 

060: 1 /* 

061 ; } : FUNCTIONAL DESCRIPTION: 
B0e8 Be /* EXIT_CMD 
8064 i 1 /* 
epee H : . TBS 

; ® 

6067 ' : S INPUTS: 
8069 | 1 /* TBS 
Baey : 7 /* 

ee /* IMPLICIT INPUTS: 
gOrs -_ /* 
8075: 1 /* TBS 
8074; 1 /* 
8075 : 1 /* OUTPUTS: 
gore : 41 /* 
8077 ; 1 /* TBS 
8078 : 1 /* 
8079 : 1 /* IMPLICIT OUTPUTS: 
8080 : 1 /* 
8081: 1 /* TBS 
td Re /* 
8085 ; 1 /* ROUTINE VALUE: 
8084; 1 /* 
8085 ; : . TBS 

; 8 

508? Pie /* SIDE EFFECTS: 
8088 : 1 /* 
8089 : 1 /* TBS 
8090 : 1 /* 
8091 : 1 /*/ 
8092 1 
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093: 1 /* 
; 1 /* ' emtmeeeraeee = Fi i i i i i i i i ed SDE ORO ee ewe ene eee ee wee Ss wee Se EE we ww ew me ee ween mnronans + 
ss ¥ /* 4 4 
‘ : c LOCAL STORAGE } 
944 , 1 /* ' Se eee ee eS we ee ee me ee eS wm wm me ee me we a mm me we me wee ewe ee we aneeueasscasans 
_ /*/ 
8100 1 
B18) 1 
B08 dO 
} 2 
B18? ; 1 /* ! wee nroeooc ree were See we Se ew ES ee en Sew eee ee ee ee ee me me ec eee ee ee we ee SS eS a 
8105 : 1 /* ! é 1 
sige ‘ : oe EXTERNAL REFERENCES 
81 08 ; 1 /* ' Se or Se em OHO we eo See Seeeecren serosa nen ose ea aesa = eer aewernom w= os 
8109 ; 1 /*/ 
8110 1 
8111 1 Declare 
8112 1 PR BIT(1) ALIGNED GLOBALREF, /* YES => prompt user for another subcommand */ 
az : NORMAL FIXED BINARY(31) GLOBALREF; /* MONITOR normal return status */ 


— 1 4 a 
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PROMPT = NO; /* Indicate no more prompting for subcommands */ 
RETURN (NORMAL); /* Return with status code */ 
END EXIT_CMD; 


: 
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EXECUTE_CMD: Procedure Returns (Fixed Binary(31)); /* Routine to execute a MONITOR command file */ 
{eee 

/* 

. FUNCTIONAL DESCRIPTION: 

oe EXECUTE_CMD 

/* This is the routine invoked by CLISDISPATCH when the EXECUTE command is given to MONITOR 

/* at the interactive level. EXECUTE_CMD opens the execute command file, sets the bit flag EXECUTE, 
/* and returns to the main interactive loop in MONMAIN (which in turn calls NEXT_EXECUTE_COMMAND) . 
/* If there is an error opening the file, the error is reported and control returns 

. to the interactive level. 

Me INPUTS: 

® 

/* Execute filename - this is the file that will be opened so NEXT_EXECUTE_COMMAND can read monitor 
/* commands. The filename is obtained by using CLISGET_VALUE with the CLD Label ‘‘EXEC_FILE"’. 


w 
: IMPLICIT INPUTS: 


® EXECUTE = a bet set to tell the main loop to call NEXT_EXECUTE_COMMAND instead of EXECUTE COMMAND. 
* NEXET_EXECUTE_COMMAND reads MONITOR commands from the opened file instead of the terminal. 


e 
* OUTPUTS: 


® 

* None. 

® 

* IMPLICIT OUTPUTS: 

& 

* COMMAND _FILE = the file reference associated with the execute command file. This is also used by 
* NEXT_EXECUTE_COMMAND to read the file. 


® 
- ROUTINE VALUE: 


* MNRS_ERREXECOM = EXECUTE subcommand cannot be used in an execute command file. 
* MNRS_ERREXEFIL = CLISGET_VALUE failed to return the execute file name. 
* MNR$_ERREXEOPN = Open failure using the execute file name. 
* SS$_RORMAL - Success. 
® 
* SIDE EFFECTS: 
None. 


/ 
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8168 | 1 /* 

8° 59 | 1 /* ' (ee ae ee ee ee ee PE Se Te Se wt Ree Oe BE eS Se RE Re ETE TDOEBT Ee Be we oe ws aw Oo a ee Re Se me ee ee ee ee ee wowace + 

a i ie REQUIRE FILE 

: * ‘ ! 

HEE: = /* ! : 

81 7 ‘ 1 /* 4 See > ee ee ee ee wee eer Se Se ewe we ee BD em Re mee re ewe oz Ge st ee] em a te ee Se om mm ee ee ce ow ee ee ee ee 3S Be ew Sw re we + 

8174; 1 /*/ . 

8175 1 

are : ZINCLUDE MONDEF ; /* Monitor utility structure definitions */ 

945 1 ZREPLACE FILE _SPEC_SIZE BY 168; /* Max file spec size */ 

sees : ZREPLACE NOT_SUCCESSFUL BY '0'B; /* Failing severity code */ 

8948 1 

8949 | 1 /* 
8950 ; 1 /* ' warn nr er c eon ence = ese nmaeamroanmnaane Rem ewee ne mse me maa ae owe ee ee 4 

8951: 1 /* ! ! 

8952: 1 /* ! GLOBAL STORAGE DEFINITIONS ' 

8953: 1 /* ! ! 

8954 ; 1 /* ' See eames ero eno emo ae sea ae Seaenrescerenrs ear ocresr names en eeo nee nro mrn ano eee warren eee w asa a 

8955 : 1 /*/ 
8956 1 
8957 1 Declare : 
oo28 : COMMAND _F ILE FILE RECORD GLOBALDEF; /* Execute command file */ 
8960 : 1 /* 
8961 ] 4 /* ' econ aooocaoacmes we Se am eo os ae emo COED ERenreonDtraenraenoawe nam cowraowmmwereoaneaocan= wero eaeacwe a 

8962 : 1 /* ! ! 
8963 : 1 /* ! EXTERNAL REFERENCES ! 
8964 ; 1 /* ! ' 
8965 ; 7 /t ' SEP eBeanoareeeeeo re weEcaeens see econ m eos a eet eae SVB eOSmMomeor earnest wenoasnaeeeaenrawnaac + 
8966 : 1 // 
8967 1 
8968 1 Declare : 
8969 1 CLISGET_VALUE ENTRY(ANY, ANY) /* CLE routine to get qualifier values */ 
8970 1 RETURNS(FIXED BINARY(31)), 
8971 1 MON_ERR ENTRY (ANY VALUE, ANY, ANY) /* Routine to log synchronous errors */ 

897 1 OPTIONS (VARIABLES ; | 
897 1 Declare 
8974 1 CURR_ERRCODE FIXED BINARY(31) GLOBALREF, /* MONITOR error status code cusrentty expected */ | 
8975 1 EXECOTE BIT(1) one GLOBALREF , /* YES => read another command from the execute file. 
gore : NORMAL FIXED BINARY(31) GLOBALREF; /* MONITOR normal return status */ 
8978 1 Declare 
8979 i MNRS$_ERREXECOM FIXED BINARY(31) GLOBALREF VALUE, /* Error message code */ 

89 1 MNRS$_ERREXEF IL FIXED BINARY(31) GLOBALREF VALUE, /* Error message code */ 

44 ’ MNR$_ERREXEOPN FIXED BINARY(31) GLOBALREF VALUE; /* Error message code */ 
Boas 
sone * /* 
89 5 ; 1 /t ' eB eS ee es we eS @ wwe Ss ee errr wroenrawn wre tne wown Demo e errr ena ee wwe ee see mee Tee Bw Bw HB ee we wwe men = = 4 

8986 : 1 /* ‘ ' 

8987 ; 1 /* : LOCAL STORAGE } 

988 : 1 /* ' : 

989 : 1 /*t ' ee wreaeonmoceracececa @weewsan Boe B ee eor wee eownoewe cree eer anmn ener e em eonneernreneaecenrswce nen ezranreane $ 

8990 ; 1 /*/ 


“000 
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EEEER SEES: 


1 
1 
1 
1 
1 
1 
1 
8 1 
999 1 
9000 1 
9001 1 
2006 1 
900 1 
9004 1 
9005 1 
9006 1 
9007 1 
9008 1 
9009 1 
9010 1 
9011 1 
1s 1 
901 1 
9014 § 
9015 
A 2 
901 1 
9018 1 
9019 1 
9020 1 
9021 1 
4 1 
902 1 
9024 1 
3062 1 
9026 1 
9027 2 
Be 
3099 
9031 1 
pat 14 1 
as | 
ss | 
ase | 
9038 1 
9039 1 
9040 1 
9041 1 
9h 4 1 
904 1 
9044 1 
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Declare 
A FIXED BINARY(31) /* Holds function value (return status) of called 
STATUS BIT(1) BASED(ADDR(CALL)); /* Low-order status bit for called routines */ scl 
Declare 
1 EXEC_FILE_PARM, 
L FIXED BINARY (31), 
A POINTER, 
1 EXEC_FILE_VAL, 
L FIXED BINARY (31), 
A POINTER, 
EXEC_FILE_NAME CHAR(9) STATIC INITC*EXEC FILE’), 
EXEC_FILE_STR CHAR(FILE_SPEC_SIZE) STATIC INIT('MONITOR.MON'); 


ON UNDEF INEDFILE (COMMAND_FILE) GOTO OPEN_ERROR; 


IF EXECUTE = YES 
THEN DO; 


CALL MON_ERR(MNR$_ERREXECOM); 
RETURN(MARS_ERREXECOM) ; 


EXECUTE = YES; 
EXEC_FILE_PARM.L = LENGTH(EXEC_FILE_NAME); 
EXEC_FILE-PARM.A = ADDR(EXEC_FILE_NAME); 
EXEC"FILE-VAL.L = LENGTH(EXEC_FICE STR); 
EXEC"FILE-VAL.A = ADDR(EXEC_FILE_STR); 
CURR-ERRCODE = MNRS_ERREXEF IC; 
CALL= CLISGET VALUE EXEC FILE_PARM,EXEC_FILE_VAL); 
IF STATUS = NOT_SUCCESSFUC 

THEN DO; 

EXECUTE = NO 


x H 
CALL _MON_ERR(MNRS$_ERREXEFIL,CALL); 
RETURN CHARS ERREXEPIL); 


OPEN FILE(COMMAND FILE) I 
ENVIRONMENT (DEF AULT_F 


CURR_ERRCODE = 0; 
RETURN (NORMAL) ; 


OPEN_ERROR: 
EXECUTE = NO; 
CURR_ERRCODE = 0; 
CALL”MON_ERR(MNR$ ERREXEOPN); 
RETURN(MARS_ERREXEOPN) ; 


END EXECUTE_CMD; 


NPUT SEQUENTIAL TITLECEXEC_FILE_STR) 
ILE_NAME(' .MON')7; 


/* Set up the UNDEFINEDFILE condition */ 


/* Make sure there is only 1 level of execute comman | 


/* Log the error... */ 
Return to processing the execute command file */ 


| 


/* Let everyone know command input is coming froma 


/* Set the length of the EXEC_FILE descriptor */ 

the address of the EXEC_FILE string */ 

the length of the execute filename descriptor 
the address of the execute filename string */ 
/* Set MONITOR code for signaled errors */ 

/* Get EXECUTE file name * 

If failed, */ 


/* Error, no longer doing an EXECUTE subcommand */ 
/* Log the error ... * 
/* ... and return with status */ 


Cad 


/* Open the execute command file */ 
/* with .MON for default file type */ 


/* Set MONITOR code for signaled errors */ 
/* Return with success code */ 


/* Indicate no more from the execute file */ 
/* Reset to default MONITOR code in case subcommand 
/* Log the error ... 


® 
/* ... and return with status */ 


| 
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